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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
* ® 
3® ® 
3* ® 
3* ® 
3* * 
ed OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ed N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
id N OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
7* THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3* OTHER PERSON. NO TITLE TO AND OWNERSHI® OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
3* & 
;* THE INFORMATICN IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
3* ® 
3* ® 
s* ca 
3* ® 
3* ® 

® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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000 ++ 
000 
000 Facility: RMS 
000 
it Abstract: 
0000 This module expands the user supplied primary, default, and related 
000 file name strings by the translation of logical names and the. 
tit application of defaults to form a fully qualified file specification. 
Environment: VAX/VMS, executive mode 
Author: Keith B. Thompson, Recreation Date: 7-Mar-1983 
Modified By: 
v03-050 DGB0080 D G. 21-Aug-1984 


: onald Blair } 
Fix bug in UPCASE_COMPRESS so that it doesn't write 
past end of buffer when a quote is the last character 
in a filename string. 


v03-049 DGB0074 Donald G. Blair 02-Aug-1984 
Fix node parsing so it remembers that the 2nd word 
of a node descriptor may have ee bits set, i.e. 
the Length field is not a longword. 


v03-048 DGB0073 Donald G. Blair 31-Jul-1984 


Fix rooted directories so they are propagated correctly 
from the related name block. 


V03-047 RASO321 Ron Schaefer 99-Jul-1984 
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Fix a couple of small ~— and help performance in RMSXPFN. 
. Make related file node,dev and dir only be ignored if an 
explicit nodename (null or otherwise) was seen. ; 
2. Make FWASV_NAM_DVI stay set so that concealed DVI devices 
stay that ys " 
. Make sure related sticky ‘'...'° directoriesare copied. 
4. Remove quoted string internal parsing from this module 
and put it into the network access code. 


vV03-039 RASO253 Ron Schaefer 15-Feb-1984 
Convert node logical name translation to use STRNLNM. 
Node logicals can not contain searchlists. 
Convert the upcase algorithm to use EXESUPCASE_DAT. 
Ignore related node, device and dir fields when a 
node or null node is present. 
Eliminate leading "'_** manipulations, fix error return 
for node-name logical RMS$_LNE errors. 


v03-038 RASO258 Ron Schaefer 24-F eb-1984 


™N~ 


v04-000 SEP-19 RMS.SRCIRMOXPFN.MAR; 1 
00 28 $ Elininate access mode itemlist checking for PPF after 
88 7F 3 translating logical names. The check is not really 
000 ¢ ; sufficient and just takes needless CPU cycles. 
000 6¢ 3 V03-046 DGB0059 Donald G. Blair 27-Jun-1984 
000 65 ; Disallow concealed device names of the form 
0000 64 ; ‘Ldir-spec.J]", i.e. those which are missing the 
44 22 ; device name. 
443 67 ; V03-045 RASO302 Ron Schaefer 30-Apr-1984 
000 68 ; Return RMS$_NOD if a node name logical translates to 
B08 69 ; *node::xxxxx', this used to be accepted and ‘xxxxx' was 
800 i : ignored. Fix instruction datatype used. 
0000 ie; : V03-044 JEJ0029 J E Johnson 19-Apr-1984 
0000 73; Make quoted network file specs check for other specification 
0000 74 ; parts than filename, such as Mig peel © device, type, or 
0000 = 75 ; version. This is illegal as the legal quoted spec is: 
B00 £6 ; node''access control string::''filename’’. 
0000 78 ; V03-043 JEJ0028 J E Johnson 11-Apr-1984 
44 0 : Minor equate file cleanup. 
0000 81; V03-042 RASO283 Ron Schaefer 28-Mar-1984 
0000 Hf 3 Change the loop counter for RAS0266 to be 32767. (!) 
0000 8&3 ; Only translate SYSSDISK if there in NOT a device name present 
0000 84 ; already. This is the same as V3 but causes the searchlist 
0000 85 ; properties of SYSSDISK to be ignored if you have a device. 
0000 86 ; ry to improve the performance of this beast a tad. 
0000 87 ; Make explicit related-file rooted directories be ignored 
Ne Hy 3 if duplicate. 
00 90 ; V03-041 RASO0266 Ron Schaefer 12-Mar-1984 
00 91 : Count the related NAM blocks that we parse. After processing 
00 4 ; 255 of them, give up and return RMS$_RLF. This is far more 
$3 82 ; elegant than an infinite loop caused by invalid programs. 
4 e ; V03-040 RAS0261 Ron Schaefer 5-Mar-1984 
00 ws 
98 ; 
Fé 
00 ; 
01 ; 
02 ; 
03 ; 
04 ; 
05 ; 
06 ; 
or 3 
08 ; 
09 ; 
10 ; 
> 
is 
13 ; 
14 ; 
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v03-029 RAS0203 Ron Schaefer 18-0c t-1983 
Fix network node parsing to not set the ACS flag 
n all cases, but only when it is actually present. 


v03-028 RASO202 Ron Schaefer 17-0c t-1983 
Clear translation attribute when processing the next 
element of the searchlist. 


V03-027 RASO191 Ron Schaefer 12-Sep-1983 
Fix ae caused by bogus searchlist structures 
created when ‘'node::searchlist_devnam:"' is encountered. 
The correction involves eliminating a real obscure hack 
in network filespec processing that allowed user-mode 
process table device names to be translated. 


v03-026 RASO184 Ron Schaefer esSep-1985 
Fix KBT0573 to_be a NOP for now until the $STRNLOG is 
converted to STRNLNM for logical node names. 


v03-025 KBT0581 Keith B. Thompson 11-Aug-1983 


SOOoOoooooooooooooooooo 
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8 112 3 Fix RASO256 and RASO257 to only ignore related file PPFs. 
3 119 s V03-037 RASO257 Ron Schaefer 23-F eb-1984 
113 ; Fix RASO256 so that concealed devices work correctly. 
00 120 ; V03-036 RASO256 Ron Schaefer 21~F eb-1984 
it } 1? Ignore PPFs that aré from the DNA, RLFi or SET DEFAULT strings. 
0000 1 : 5 V03-035 RASO248 Ron Schaefer 4-F eb-1984 
B88 : ¢ 3 Ignore nul fields for input related filespecs. 
Bee 1 § 3 V03-034 RASO234 Ron Schaefer 11-Jan-1984 
00. 21 : Add support for SLBHs, revise filename string storage 
000 128; in order to implement multi-line input sticky searchlists. 
0000 \¢ ; Revise searchlist processing rules to incorporate 
0000 130; arbitrary many searchlist sources: FN, DN, RNi, and SD. 
0000 131; Any compatibility of filename persiog between V3 and v4 
B00 13 : is purely coincidental after all this! 
0000 134; V03-033 RASO238 Ron Schaefer 18-Jan-1984 
0000 13? 5 Fix bad R11 value for allocatin space to store the 
44 138 3 filename strings. (Fix to RAS0219). 
0000 138; V03-032 RASO231 Ron Schaefer 9-Jan-1984 
0000 139; Add support for NAMSV_SYNCHK (part 1); copy the NAMS$V_SYNCHK 
0000 140; bit into FWASV_SYNTAX_CHK for Later use both here 
0000 141; and in $PARSE. 
0000 195 3 
0000 143; v03-031 RASO219 Ron Schaefer 8-Dec-1983 
0000 144; Revamp FWA structures for better memory use; 
464 2 : make translation buffers be dynamic. 
0000 147 ; v03-030 RASO208 Ron Schaefer 3-Nov-1983 | 
0000 148; Make sticky directories work for UIC-format directories. 
0000 149 ; The STICKY_DIR and MOVE_RELATED subroutines were 
0000 150; incompletely integrated. 
0000 151; 
136 : 
22 
154 ; 
155 ; 
156 ; 
157 ; 
158 ; 
159 ; 
160 ; 
162 ; 
163 
164 ; 
165 ; 
166 ; 
188 
169 ; 
190 : 
171 ; 
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Support |S and ‘_' in both filenames and filetypes. Also 
al ov filenames and filetypes to be a max of 39 characters 
each. 


176 : Change size of file name on magtape and fix a (yes 
1 : there was one) search List bug! 
g 175 ; v03-024 KBT0573 Keith 8. Thompson 3-Aug-1983 
Bo 178 ; Remove Last ref. to FABSB_DSBMSK 
00 178 ; v03-023 KBT0555 Keith B. Thompson 20-Jul-1983 
000 1% ; Probe the input strings 
000 181: v03-022 kBT0551 Keith 8. Thompson 23-Jun-1983 
4 136 . FWASB_LNFLG changed it's none” 
$609 182 : v03-021 KBT0545 Keith B. Thompson 22-Jun-1983 
Ba 13? : Fix an out of phase symbol 
6009 187 : v03-020 KBT0535 Keith B. Thompson 25-May-1983 
4 138 : Use new logical name services and turn on search List 
0000 190: V03-019 KBT0514 Keith B. Thompson 23-May-1983 
464 133 ; Put this monster in a remote psect 
0000 198 : v03-018 KBT0505 Keith B. Thompson 3-May-1983 
444 138 : Add search List support 
0000 196 ; v03-017 RASO150 Ron Schaefer 29-Apr-1983 
0000 197; Fix incorrect recursion error return path for 
4 135 ; parsing the default directory. 
0000 200; V03-016 RASO149 Ron Schaefer 28-Apr-1983 
0000 201 ; Fix wrong register usage for ‘node::(]' and 
i464 508 ; get correct address for ‘Ca.b...J'. 
0000 204; v03-015 KBT0500 Keith B. Thompson 7-Mar-1983 
0000 205; Rewrite PARSE_STRING, CHECK_FIELD, STICKY_DIR, MOVE_RELATED, 
44 $8 ; remove NEXT_FYELD etc... 
0000 208 : v03-014 TMK0001 Todd M. Katz 28-F eb-1983 
4 209 ; Change a BLSS to a BLSSU within the routine MOVE_RELATED. 
000 210 ; When the maximum size of a errectory specification went above 
0000 211; a hexadecimal 7F, this branch was always being taken. As a 
siti 318 : result, sticky directories broke. 
0000 214 ; v03-013 LJA0063 Laurie J. Anderson 23-Feb-1983 
44 $12 3 Move a couple routines involved with the NAM block to 
00 18 3 RMONAMSTR.MAR where they belong. They include RM$CHKNAMBLK 
Hi ii 3 and RMSCHKNAM, 
0000 219 ; V03-012 KBT0493 Keith B. Thompson 11-Feb-1983 
3208 9 5 Add support for null node spec. 
009 4 : v03-011 KBT0443 Keith 8. Thompson 3-Jan-1983 
4 ; : Fix support for ‘'$'’ and "'_"’ in directory names. 
099 5: v03-010 $HZ0001 Stephen 4. Zalewski, 5-Nov-1982 16:05 
$00 $ ; 
000 a; 
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v03-009 KBT0219 Keith 8. Thompson 23-Aug-1982 
Reorganize psects 


v03-008 KRM005S7 K Malik 10-Aug-1982 
Change ASSUME statement in Logical nodename translation 
mod: = to refer to new FWAST_NODEBUF & FWAS$B_UNDER_NOD 
symbols. 


V03-007 DMwW4002 DMWalp 1-Aug-1982 
Correct problem where if input ag > 63 alpha-num 
characters without any punctuation then string was 
dropped on the floor without an error because $TRNLOG 
only copies the input to the output string on NOTRANS 
error. 


v03-006 KBT0100 Keith B. Thompson 13-Jul-1982 
Clean up psects 
V03-005 KRMO015 K R Malik 22-Apr-1982 | 


For a network filespec, stop resolving leading hyphens in the 
directory string (at the local node), because the hyphen has 
meaning only in the context of the default directory at the 
remote node. For example, in a directory string of the form 
{-.A.B], the hyphen s ould be passed to FAL. 


V03-004 JAKO076 JA Krycka_ “20-Apr-1982 
Scan foreign filespec within a quoted apres for wildcard 
characters, and set the NAMSV_WILDCARD bit if any found. 


v03-003 JAK0073 J A Krycka 12-Apr-1982 
Eliminate the practice of pret ting a <del> character to a 
resultant name string to indicate that the password has been 
masked out of the nodespec. If the resultant name string is | 
then used as a related name string this flag character was 
used to tell RMS to translate the nodespec string to obtain 
the original nodespec with the real password. Now NXTFLD will 
examine the access control string for a substring of ‘pasword’ 
pete ine V.PWD if found) to signal that the nodespec string 
should be franslated. 


vu5~992 KEK0029 K. E. Kinnear 24-Mar-1982 
Return FNM error when we first get a quoted string (which 
we think is ANSI) and THEN get a node spec Later. Mveys 
used to give an FNM error before the advent of ANSI strings. 


v03-001 RASO079 Ron Schaefer 17-Mar-1982 
Add support for translation table mask (FABSB_DSBMSK). 
ALL three STRNLOG services are affected. 
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v04-000 DECLARATIONS gr seen 4 0:53:08 LRMS SRCIJRMOXPEN-MAR: 1 ° (8) 
09 1 -SBTTL DECLARATIONS 
0 § 3 
00 4 ; Include Files: 
8 8 ; 
3s 
44 8 SF ABDEF 
00 H+ $F SCBDEF 
000 9 SFWADEF 
0000 90 SIFBDEF 
0000 91 SLNMDEF 
BO 35 SLOGDEF 
00 9 SNAMDEF 
4 94 SNWADEF 
000 95 SRMSDEF 
0000 296 SSLBDEF 
0090 $3 SSLBHDEF 
0000 98 SSSDEF 
0000 99 STRNLOGDEF 
0000 00 
0000 01 ; 
0000 6 3 Macros: 
0000 03 ; 
0000 04 
0000 305; 
0000 $08 ; Equated Symbols: 
0000 07 ; 
0000 308 
00000020 0000 309 FOP z FABSL _F op * 8 ; Bit offset to FOP 
00000010 0000 310 we = FWASB_WILDFLGS * 8 : Bit offset to wild card fl. 
0000 311 WCNTV_MASK = clacrOASV _WC_NAME-WC>>!- 
0000 318 <1a<FWASV_ WC “TYPE-WC>>! = 
00000038 0000 1 <1 a<FWASV_WC_VER-WC>> : Wild name, type, 
0000 314 3; or ver mask 
0000 315 
0000 316; Ligh he 
0000 17 ; Other definitions: 
0000 18 ; 
0000 19 
00000018 0000 20 ESCAPE = *X1B ; ASCII escape character 
00000009 0000 $5) HOR_TAB = *x09 ; ASCII value for horizontal tab 
$8 
$e 
5 
26 
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68 8 -SBTTL RMSXPFN, Filename Expansion Control Routine 
B33 HH 
4 § ; RMSXPFN = four major routines are included here: 
090 4; 1. RMSXPFN - high-level control routine to select 
000 > § and verify the various strings to 
4 § 3 be used to expand the filename. 
000 ; 2. PARSE_STRING - medium-level routine to parse an 
4 a 3 individual string into its 
4 9; constituent parts, translating 
000 40 ; logical names, and merging the 
0000 41 ; results into the expanded string. 
0000 4g 3 3. CHECK_FIELD - low-level subroutine that 
0000 43 ; performs checks and other 
B08 te 3 functions as directed by PARSE_STRING. 
9444 $08 : The high-level control routine, RMSXPFN performs the following functions: 
44 rt} 3 1. probes the filename string and calls PARSE_STRING to parse it. 
0000 $29 ; 2. if not all filename fields (device, directory, file-name, 
0000 ot 8 file-type, and file-version) are present applies defaults 
0000 26 : in the order: 
0600 53 ; 
0000 54; - default filename otr ing (if any) 
0000 355 ; - related file (if any) for filename and/or *thetyes only 
0000 356; - default device by applying the logical name ‘SYSS$DISK: 
0000 $26 3 (only node not specified) 
0000 58 ; - default file directory as currently established 
0000 359; (by login or the set default command) (only if 
444 #09 3 node not specified) 
0000 364 3 3. if a NAM block is specified and it includes an expanded 
0000 63 ; string buffer, the expanded string will be copied to 
0000 364; the buffer. 
0000 o> 3 
0000 66 ; Calling Sequence: 
94 67 ; 
000 68 ; BSBW RMSXPFN 
0000 69 ; 
0000 i 3; Input Parameters: 
$000 ie 3 R8 FAB address 
444 73 3 R9 IFAB address 
000 74 ; , 
44 o? ; Implicit Inputs: 
0000 7 3 The contents of the FAB and related NAM block if any, 
000 79 ; 
O88 : 
00 3 
000 3 
000 


RMS.SRCIRMOXPFN.MAR; 1 


0 8 in particular the fields FNA, FNS, DNA, DNS, RLF, and NAM. 
0 9 - if RLF speci tied NAM in the related FAB and 
0 0 RSA and RSL in the NAM block 
3 1 - if NAM, ESA and ESS 
0 3 : Also, the contents of the various logical name tables, 
00 4 Especially with respect to the various system-defined names. 


Page 
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expanded filename string + ESL set to its 
Length in bytes. 


FWA: oo logs set as per the parse 
~FWASB_DIRTERM set to directory serminet ing bracket c*F* on 73 
“FWASL_ESCSTRING set to escape string if s 
=the descriptors for the parsed filename elenents 
are pet with the sizes of the various elements 
of the filename string, the elements themselves 
hav ~ been copied to the buffers. The filetype 
and version are appended to the file name. 


Sooooo 
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0 5; 
G09 § ; Also, the current default directory string. 
$8 8 : FWA and NWA inputs: 
00 0; Q_NODE - descriptor of Tepocher buffer in FWA 
44 91; ruAsa- DEVICE - descriptor of 15-char buffer in FWA 
0000 35 ; Q-DIR1 - descriptor of 9-char buffer in FWA 
$38 93 ; ASG “DIR - descriptor of 9-char buffer in FWA 
0 94; FUASO™ DIR2+8 - 
000 95; FWASQ_DIR2+16 = *' 
464 39 r FWASQ_DIR *¢3 = 
0 ws sore _DIR2+52 - 
0000 98 ; FWASQ_DIR2+40 = + 
0000 99 ; FWASQ_DIR2+48 = 
0000 400; puaee ma - descriptor of 10-char buffer in FWA 
0000 401; TYPE - descriptor of 4-char buffer in FWA 
0000 ret : FUAS $a7V VERSION - descriptor of 6=-char buffer in FWA 
C000 403 ; puAsa. QUOTED - descriptor a 12?-char buffer in FWA 
0000 404; WA$Q_NODE1 - descriptor using shared node buffer in NWA 
0000 405; FUASa “NODE1+8 = : 
000 406; puAse. NODE1+16 = "" 
000 407 ; FWASQ_ “NODE +33 -' 
0000 408 ; FWASQ_NODE1+32 = ‘' 
0000 409 ; FWASQ_-NODE1+40 - = 
0000 410; FWASQ_NODE1+48 -' 
0000 411; FWASQ_NODE1+56 - "' 
0000 ef 3 
0000 413; Notes: 
0000 414; 1. the name, type, and version buffers must be 
5000 ai? r adjacent and ascending in memory 
0000 417; 2. all other FWA fields should be zero 
0000 418; 
0000 419 ; Output Parameters: 
0000 420; 
0000 $s! PF RO Status code 
0000 4 ¢ $ R1-R7 Destroyed 
0000 423; R10 FWA address 
000 424 ; AP Destroyed 
000 425 ; 
0000 426 ;: Implicit Outputs: 
0000 427; 
44 4 8 : NAM block (Cif goo ttied) : 
: $ “if ESA specified buffer filled in with 
He 
433 ; 
434 ; 
435 ; 
436 ; 
tet 
39 
440 ; 
441 ; 
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v04-000 RMSXPFN, Filename Expansion Control Rout ett 90:53:98 RMS.SRCIJRMOXPFN.MAR; 1 ° 
p rr 3; Completion Codes: 
444 ; Standard RMS completion codes, including: 
0 445 ; SUC, » DNA, RLF, SYN, NOD, DEV, DIR, FNM, TYP, VER, LNE, 
7 ; QUO, NAM, ESA, ESS 
0 448 ; Side Effects: 
0 449 ; 
0 450 ; None 
0 $ 451 ; 
099 +26 3-- 
$00 rt ASSUME 2*<LNMSC_NAMLENGTH+1> LE 512 ; 2 xlt buffers per page 
43 $2? ASSUME NAMSC_MARRSS LE 256 3; room for 1 copy of name 
0009 239 XPFN_SPACE = < <2*<LNMSC_NAMLENGTH+1>>+ - ; space for $ xlt buffs 
000 458 <2*<FSCBSR_BLN>>+ - ; space for 2 FSCBs 
00000508 4444 459 256 > 3 space for name string 
0000 460 
0000 461 RMSXPFN:: 
0000 re STSTPT XPFN 
OOOO0000'EF 16 0006 46 JSB RMSFWASET ; get a FWA 
48 50 €9 4 45 rt: BLBC RO,10$ :; Branch on failure 
52 0508 8F 3C OOOF 466 MOVZWL #XPFN_SPACE,R2 3; size of all the scratch space 
QOOOOO000'EF 16 0014 467 JSB RMSGETPAG 3 get scratch space 
3A 50 €9 dfs re BLBC RO,10$ 3 room? 
OOAO CA 63 9E 001D 470 MOVAB (R3) ,FWASL_XLTBUFF1(R10) ; Ist_buffer 
OOA4 CA 0100 C 9E 8058 471 MOVAB <14LNMS$C NAMLENGTH>(R3) , FWASL_XLTBUFF2(R10) : 2nd buffer 
0200 C3 9E 00 ar¢ MOVAB <2*<LNMSC_NAMLENGTH+1>>(R3),- ; space for 2 xlt buffs 
50 AA 8 ate FWASL_BUF _PTR(R10) 3; save scratch buffer address 
54 AA 5B 00 OO2F 475 MOVL R11,FWASL_IMPURE_AREA(R10) ; save impure address 
0300 C3 9E 0033 476 MOVAB <256+<2*<CNMSC_NAMLENGTH+1>>>(R35,- | 
58 0037 477 R11 3; point to Ist FSCB 
0141 30 0038 478 BSBW EXPAND_NAME ; do bulk of work 
5B 54 AA 00 003B 479 MOVL FWASL_TMPURE_AREA(R10) ,R11 3; restore impure address 
50 oD Oar 4 rt PUSHL RO ; save status 
55 0508 8F 3C 0041 rt) MOVZWL #XPFN_SPACE,R5 : size of all the scratch space 
54  O0A0 CA DO 0046 48 MOVL  FWASL-XLTBUFF1(R10) ,.R4 : addr of space 
00000000 * EF 16 0048 484 JSB RMSRETPAG ; return it all 
28 seey O33) oe? POPL RO 3; restore status 
01 50 : 054 486 BLBS RO, 208 peas 
5 0057 487 10$: RSB : exit with error 
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ASSUME FWASQ_TYPE EQ ary int Dt 
ASSUME FWASQ_VERSION €Q <FWASQ_TYPE+8> 
A T_NAMEBUF +F WASS_NAMEBUF > 


; ASSUME FWAST-TYPEBUF <FWAST— i 
<FWAST~TYPEBUF +FWASS 1 YPEBUF > 


; ASSUME FWAST_VERBUF 


83 $89 H 
a5 a3y ; Expand_name was successful! 
5 136 ; Check to see if there the first user directory is the MFD and flags it 
05 495 ; as such. NOTE: We define ‘000000' as being a reserve word meaning 
b2 $30 : the MFD which can be the real '000000.DIR* or the rooted directory. 
058 496 ° 
56 gi50 CA 7D 005 199 208: mMOVa FWASQ_DIR1(R10) ,R6 3 get first directory name 
6 06 B61 005D 498 CMPW #6,R6 ; is it the correct size 
1 12 006 499 BNEQ 40 3; can't be if not 
87 30303030 op »} B80 289 ea #*A/0000/, (R7)+ : "todbohoe form of 
67 3030 8F B81 00 208 CMPW = ss #*A/00/, (R7) ; check the last two bytes 
06 12 007 0 BNEQ 3; no continue 
B08 ape SSB #F SCBSV_MFD,FWASQ_DIR1(R10) 3; we have one, set the flag 
B78 206 3 ‘ 
07 507 ; We have all the parts described separately. 
0078 508 ; Append file type and version to the filename. 
Bh 
28 6A «(1A~—=CO#€;=*? $078 511 40$: BBC #FWASV_QUOTED, (R10) ,50$ ; check if network quoted 
OF 6A 19 €1 O07C 216 BBC #FWASV-NODE, (R10) ,448 : string found 
0080 51 
0080 514; 
0080 515 ; Network quoted es -- check for only filename and node specified. 
494 218 : note that version and type were checked during the $filescan. 
0080 518 ° 
6A O00C3C000 8F D3 0080 519 BITL § #FWASM_EXP_TYPE!FWASM_EXP_VER!- 
0087 520 FWASM_EXP_DIR! FWASM_EXP_DEV!- 
0087 521 FWASM_DIRTFWASM_DEVICE,(R10) ; test for all other spec parts 
42 13 0087 258 BEQL 70$ ; Branch if a legal spec 
0089 5 RMSERR QUO 
05 OO8E 524 RSB ; Return with an error. 
a 
008F 527: Upcase quoted string in place -- can't use UPCASE_COMPRESS because: 
st 528 ; we don't want to compress the string 
ak 
50 0170 CA 7D OO08F 334 44$: mMOVa FWASQ_NAME (R10) ,RO 3: set up descriptors in RO,R1 
1): oe | Bae 236 BRB 46$ : enter loop in progress 
52. 61 QA 0096 ae 45$: MOVZBL (R1),R2 : get char 
81  00000000'GF42 90 0099 5 MOVB  G*EXESUPCASE_DATCR2],- 
0A1 2 § (R1)+ ; Upcase it 
F250 F4 aeAl 23 46$: SOBGEQ R0,45$ 3 count down characters 
28 0170 CA 7E AS 5 50$: MOVAQ FASO WARE (ATP) AG 3; get name descriptor 
5 86 86 C1 es ret ADDLS (R6)+,(R6)+,R 3: get address past name 
4 
23 
0 44 
0 45 


~~ 


oot 
; 11 
RMS. SRCIRMOXPFN.MAR; 1 (4) | 


8 | 
EXPAND FILENAME STRING 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page RM 
RMSXPFN, iontan Expansion Control Rout 5-SEP-1984 93:53:58 t . ‘ vO 
gnee 46 
83 3 30 OAD 47 MOVB #°A/./,(R3)+ 3 append '.' to delimit type 
1 0B 48 BSBB VNXT 3 append fype 
08 68 32 Ei 008 49 BBC #F ABSV_OFP+FOP, (RB) ,.60$ ; branch if not output file parse 
04 6A_ 1 E1 B6 50 BBC FWASV_WC_VER, (R10) ,60$ ; branch if not wildcard version 
0180 fA Bf QOBA 51 DECW FWASQ_VERSION(R10) ; get rid of '*' version 
a3 008 26 60$: MOVB #°A/;7,(R3)+ ; append '; 
12 10 00C 55 BSBB MOVNXT ; and version 
0170 CA 53 0174 CA C3 O00C 554 SUBL3 FWA$Q_NAME+4(R10),R3,- ; adjust length 
00cB «555 F WASQ_NAME (R10) 
Beh aas 
bOcB 2h 3; Modify node descriptors to include leading underscore where ; 
Bere 223 ; Appropriate. Note that this code is skipped for process permanent files. 
0OOCB 561 
0O0CB 266 70$:;3; bbe #fwaSv_node,(r10) ,80$ i; branch if node name not seen 
OOCB 563 3:; incw fwa$q_node(r10) ; modify node descriptor to 
QOOCB 564 33; decl fwa$q_node+4(r10) ; include leading underscore 
OOCB 565 ;::; incw fwa$q_nodei(r10) ; modify nodel descriptor 
OOCB 566 ;;; decl fwa$q_node1+4(r10) 
QOOCB 567 ;;;80$: bbc #fwaSv_dev_under,- ; branch if device name was not 
00CB 4568 ::; (r10) ,90$ ; prefixed by an underscore 
QOCB 569 ::; incw fwa$q_device(r10) ; modify device descriptor to 
0OCB 570 ;;; decl fwa$q_device+4(r10) ; include leading underscore 
00OcB «571 
00CB Ae ; E ; 
OOCB 573 ; If user has specified a NAM block and an expanded string buffer within it, 
0OCB 574 ; give him the expanded name. 
00CB ef? ; 
00CB 76 
oocB «577 
57 28 AB OO «ONCE = 5578 MOVL FABSL_NAM(R8) ,R7 ; is there a NAM block 
F 12 Q0D2 579 BNEQ SETNAM ; branch if yes 
05 0004 580 RSB ; exit success if not 


90$: RMSSUC ; declare success so far 
| 
| 


Nema See enti: a a ee Pe ee ee ee ee ee ee 
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ea 
oD ¢ ; Subroutine to append file type and version to the file name. 
0005 6 ; Inputs: 
005 87 ; 
00D5 88 ; R3 Destination address 
0005 283 3 R6 Descriptor of field to append 
00D5 90 ; 
0005 23) ; Outputs: 
00D5 5 ; 
Bede 23 ; i Destroyed 
0D5 94 ; g Address past last byte moved 
0005 595; R6 R6 + 8 (The descriptor referenced by R6 is updated to point 
00D5 596 ; point to the moved string.) 
00D5 597; 
0005 598 ;:- 
0005 599 
50 86 DO Q00D5 600 MOVNXT: MOVL (R6)+,RO ; get Length 
51 66 00 O00D8 601 MOVL (R6),R1 : get address of string 
86 53 00 O00DB 602 MOVL R3,(R6)+ 3 Save destination address in desc 
61 50 se bees et MOVC3 RO,(R1),(R3) : move field 


————— 


| RAOXPEN EXPAND FILENA 
v04-000 SETNAM, Fill 
E 
E 
0139 30 
OF 68 38 = = €1 
2A A? OS 
56 ig 
24 a7 OD 
51 12 
11 «£0 
4C 34 A7 


BERLE SEF EAN NANWIWIIDINONININPNPININININ 2 PO OOO nw KM OOCO SES 


DPXARA_EXQPXREXAPXA AAA AAA AAA AA AA AA AAA AAA AAA AA AAA AAO AASO 
DWONA UNE WN OOO NAUE WN | OOO NAUE WIN @ O OONOAUE WN - OOONOUS WN OUOONG 3M 


SOOSCOCDODOCOCOCOSDOOSDOSCSOSCOCOOSOOCODOCOCODODOOOODODODOOOSGOODODODOOODOSDOO 5 
tt SSB SABA SOOOSOOOOSSSSSSSSsssesso 
m 


BoB BB BE MAID IN INI 0 98998 2?§F ID |]OOO AGG FG FG PY PG PE PY “PETE CT ETUC T ETO 
DONAAAUUION NAM BS WNIT BS UIWWOM DAAAAAAOWS OOOODOOA LVS POW 


64 

64 

05 6A 3A EI 65 
65 

65 

05 65 
65 

65 

0c 65 
65 

65 

65 
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; Fill in the expanded filename string and FNB status bits. 


SETNAM: BSBW CHKNAMBLK 
BBC #FABSV_NAM+FOP,(R8),15$ ; 
TSTL NAM$SW_BID(R7) 
BNEQ XITNA 
TSTL NAMS$W_FID(R7) 
BNEQ XITNAM 
BBS #NAMSV 


NODE ,- 
NAMSL_FNB(R?) ,XITNAM 


> Return expanded name string to user's 
15$: B“EXPARGL ,AP 
RMSEXPSTRING 
RO,XITNAM 


MOVAB 
JSB 
BLBC 


: Fill in the filename status bits. 


check access to name block 

branch if not doing open by NAM block 
was directory ID an input? i 

; branch if yes (don't output anything) 
do we have a file ID? 

branch if yes 

branch if network access 


Sete Se Ge Ge Ge Be 


buffer. 


; Address of RMSEXPSTRING argument List 
; Return expanded name string 
; Quit on error 


20S: CLRL NAM$SL_FNB(R7) ; Clear the FNB 
INSV FWASB_WILDFLGS(R10),- ; Set low 9 bits 
#0,49,NAMS$L_FNB(R7) : 
TSTB FWASB_ESCFLG(R10) 3 PPF a set? 
BEQL 30$ ; Branch if not 
SSB #NAMSV_PPF ,NAMSL_FNB(R7); Yes, set fla 
30S:  EXTZV - #FWASV-NODE ,#7,(R10),R1 ; Get next 7 bits 
INSV ——R1, #NAMSV_NODE ,#7,- 3 and set them 
NAMS$L_FNBTR7) : 
ASSUME NAMSV_WILD_UFD €&Q 24 
MOVB FWASB_DIRWCFLGS(R10),- ; Set directory wildcard flags 
NAMSL_FNB+3(R7 A 
BBC #FWASU_SLPRESENT, (R10) ,40$ : search List present? 
SSB #NAMSV~SEARCH_LIST,NAMSL_FNB(R7); flag it in name block 
40$: BBC #FWASV_CONCEAL DEV, (R10) ,50$ ; concealed device present? 
SSB #NAMSV_CNCL_DEV,NAMSL_FNB(R7) ; flag it in name block 
50$: BBC #FRASV_ROOT_DIR, (R10) XI TNAM ; root directory present? 
SSB #NAMSV_ROOT_DIR,NAMSL_FNB(R7) ; flag it in name block 
XITNAM: RSB ; Return to caller of RMSXPFN 
EXPARGL : : : 
-BYTE NAMSL_ESA ; Argument List for RMSEXPSTRING 
RMSERR_WORD ESA ; 
RMSERR—~WORD ESS : 
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128 6} -SBTTL UPDATE_SLB, Search List Update Routine 
14B 663 ;++ 
148 664 ; 
12 982 ; UPDATE_SLB - 
148 667; This routine updates the last search List block (SLB) in the 
148 668 ; specified SLB list. If there are no SLBs return failure. 
148 669 ; If the last SLB cannot be updated it removes the SLB and tries 
0148 670; to update a previous SLB until all SLB are exausted. 
0148 671 ; 
Bite ore 3 Input: 
148 673; 
0148 674 ; R6 - pointer to the SLBH List to update 
0148 675; 
0148 676 ; Output: 
0148 677 ; : 
0148 678; z-bit : clear - update success 
0148 679; set - update failed 
0148 680; 
0148 681 ;-- 
0148 ret 
0148 683 UPDATE_SLB: 
54 OC A6 00 0148 684 MOVL LBYSL_SLB_QUE(R6) ,R4 : get first SLB 
2A 613 «(014F )~=— 685 BEQL 0$ ; there is none (z-bit set) 
54 04 A4 DO 0151 686 MOVL SLBSL_BLINK(R4) ,R4 ; get Last SLB in List 
OC AS D1 0155 8687 CMPL SLBSL_INDEX(R4) ,- ; have we gone past Last 
10 A4 0158 688 SLBSL_MAX_INDEX(R4) ; mame in the search List 
9 19 O15A 689 BLSS 20$ 3; no 
015C 690 
015C 691; 
015C O26 ; The SLB we updated is no longer usefull, need to delete it and try to 
015C 693 ; update the previous one 
015C 694 ; 
015C 695 
54 64 OF O15C 696 REMQUE (R4),R4 3; remove this SLB 
03 1C O1SF 697 BvC 10$ 3 was que onpty 
OC A6 =DS 0161 698 CLRL SLBHS$L_SLB_QUE (R6) ; yes, clear the List pointer 
5B ODD 0164 699 10S: PUSHL R11 3 save FSC 
5B 54 AA DO 0166 700 MOVE FWASL_IMPURE_AREA(R10) ,R11 : restore impure address 
OO0O000000'EF 16 O16A 701 JSB RMSRETBLK1 : deallocate the space 
5B 8EDO 179 70 POPL R11 : restore FSCB 
D6—s ‘17 pie Py? BRB UPDATE_SLB ; try again 
14 AG D4 $198 roe 208: CLRL SLBSL_ATTR(R4) ; clear attributes for next element 
OC AS =—D6 (0178 m8 INCL SLBSL_INDEX(R4) 3; update index for next element 
gi7 70 : (z-bit clear) 
05 0178 708 30$: RSB 3; return 
017C 8=709 


eed 


i 
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-SBTTL EXPAND_NAME, Apply File Name Strings | 
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EXPAND_NAME = controls the parsing of the primary, default, and related 
Filename strings and the application of the various defaults. 


It performs these functions by setocting the next gtring for parsing, 
verifying its readability, and calling PARSE_STRING to include it. 


Same inputs as for RMSXPFN, 


Same outputs except that the expanded name string is not built up from 
the parts. 


Sete Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge 


EXPAND_NAME : 
1C 6A O02 €1 BBC #FWASV_SL_PASS,(R10),10$ ; branch if this is not 


; a search List pass 


: If this is a search List operation then try to et the search List 
; blocks in the following order: FN, DN, RNi and SD. If no update succedes 
; then return error = ‘no more strings’ 


NNN ANNNNNNNNNNNNN SSS 
FE WWW WWII INnonononononononong ] SS SS op 


Pr rr rrr rr PP OOOO 000 000 0H WH WW 090909 0909 00 00 00 00 09 09 08 SINS SINS 
SPOS LOCOCO OMN NNO OOWDASA S$ MS DWDNOGOCOCOCOC COCO OCOCONAAAAAAGBAOAAAAOAAAAAOA 


ASSUME SLBHSL_FLINK £0 0 | 
57 00B0 E MOVAL FWASL_SLBH_FLINK(R10),R7; start of que addr for end test 
56 0 MOVL (R7) ,R6 ; start at file name List head 
57 1 742 1$: CMPL = R6 RP ; back to popjnning? 
3 74 BEQL 2$ ; no search lists left | | 
0 744 BSBB UPDATE_SLB : update or delete this List 
2 745 BNEQ 5$ : if done, procede 
0 746 MOVL (R6) ,R6 3; advance to next 
1 oes BRB 1$ 
4 749 2$: CLRL RO ; return error ‘no more List’ 
5 730 RSB > exit 
0182 331 O3¢ 5$: BRW PARSE_SPECS : continue by parsing the strings 
Oe ASSUME FWASL_SLBH_PTR+4 EQ FWASL_SLB_PTR 
OOA8 CA 7C £38 108 CLRQ FWASL_SLBH_PTR(R10) : clear the ‘current’ SLBCH] ptrs 
758 ; 
£23 3; Check for open by name block 
761 * | 
57 8628 AB 00 £06 MOVL FABSL_NAM(R8) ,R7 3 get NAM block address 
48 1 76 BEQL 40$ ; don't have one, need to parse normally 
7 10 764 BSBB CHKNAMBLK ; check out the name block 
03 =€1 765 BBC #@NAMSV_SYNCHK,= 3 remember the syntax-only check flag 
04 08 A? 76 NAM$B_RNOP(R7) ,20$ ; for more convenient questicining 
76 SSB #FWASO_SYNTAX_CHK,(R10) ; set corresponding FWA bit 


cc 
w 
oa 
Ww RKOWDOMOGO 
So NOOOOOn>y 
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gis) Tee 
: ‘ by name block and there is a name block, so check for non-zero 
ore i 3 ives 1b an the name block and if found use it to provide a device name. 
181 773° 
: FA NAM+FOP,(R8),30$ ; branch if not open by name block 
39 a i 5 ibs he _ mOVA MAMET DVI CRDS RS ; get device ID string address 
56 5 9A 0189 77 MOVZBL (R5)+7R6 3 get string Length 
6 13 Q18C oo§ BEQL $ : Eranch if zer 
OF 6 O01 gig 778 CMPL R6,415 : device ID > 15 chars? 
69 1A O1C1 779 BGTRU  ERRDVI : branch # 
57 50 AA D0 tte 780 VL FWASL_BUF_PTR(R10),R7 ; get address of scratch buffer for DvI 
o>. So ae oe Ber fel MOVC3 R6,(R5),(R7) z; move the string 
635 3A 90 0O1CB 4 oe #17, (3) ; append cones SS device name 
0208 88 ite i Bee PARSE STRING : parse device name oat & 
20 88 Sips 785 B1SB2 FWASA_NAM DVI, (R10) : flag device came from NAM block 
57 2BA DO 0106 786 MOVL FABSL_RAM(RB) ,R7 ; get NAM block address again 
8 10 O1DA 787 BSBB CHKNAMBLK z; check out the name bloc 
24 A? =6—DS «6(O1DC) OO O788 TSTL NAMSW_FID(R7) 3; is file ID non-zero? 
10 13 ODF 789 BEQL 40$ ~ 3 continue parse if not 
37 69 32 #«€1 «O1E1 790 BBC #IFBSV_CREATE,(R9),60$ ; all done unless create 
24 A? D4 OES 791 30S: CLAL NAM$W_FID(R7) 3 zero the file ID for create 
OB A? «+94 O1E8 ag: CLRB wanes Fat ERE ; zero returned strings 
a : 
gi Ay ‘ SEE 59% ELRL NAMS$L_FNB(R7) ; and status bits in case of error 
0082 rf O1F1 795 40$: BRW STUFF _NAME ; continue parse 
git 788 
01F4 798 : Don't allow DID or FID to be used since DVI is bad. 
SIF 800 | 
: 3; zero the directory ID 
a oH ay oiES $3 ae BBC” ONAne ree r Sranch if not network access 
E9 34 A7 O1F9 308 NAMSL_FNB(R?) , 30S 
24 AZ D4 pire s08 CLRL NAMS$W_FID(R7) 3; zero the file ID 
O1FF 06 ; 
: k i t supported over the network, but it can be simulated 
StF $08 : a rs resultant’ nane. string returned from a previous $SEARCH, SOPEN, 
O1FF 809 ; etc. This facilitates network wildcard support as many utilities open by 
OIF ei 3; Name Block after finding the next file via a SSEARCH operation. 
1FF FB 
3 Ltant string Length 
to oa th 73 0203 i | panacea $ Wand’ branch it zero (i.e. ignore) 
° 3; get resultant strin 
or DA 8 09 1 BEG en 3 wont branch if zere’(1.e.. ignore) 
67 56 OAAY O 19 PROBER IFBSB_MODE(R9),R6,(R7) ; probe readability 
20 § 1 1 BEQL ERRR ; branch if inaccessible 
5 soRh 90 Gel $1) Rov, FLARE ur pravanoo ns get address of scratch, butter 
3 per ; 
OAFC 16 26 BSBW  UPCASE_CO ; "compression ‘n Ji ras 
187 0 19 BSBW PARSE _STRING 3; parse the strin 
: ; all done even if all file name 
me i if 5 vas oe come: 3 parts are not present 


- 
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1F $ 
if 5 ; Check the nam block, if there is an error pop the pc and return 
if 859 
1F 0 CHKNAMBLK: 
ave 8 1g 1F 1 JSB RMSCHKNAM 3; check the name block 
0 9 ack ; ¢ pias RO. 108 ; was there an error 
3 yes pop return pc 
Be 8 8 4 10$: : ie’ . . 
022C 5 
022C g : 
8 : 4 ; Handle errors 
8 C 839 
C 840 ERRDVI: RMSERR DVI ; Invalid device ID field 
05 b¢3] ee RSB 
0933 Be ERRRST: RMSERR RST ; Can't access resultant name 
05 023 844 RSB 
oe 38 845 
0238 846 ERRFNA: RMSERR FNA ; Can't access filename string 
05 0230 847 RSB 
O23E 848 
o543 849 ERRDNA: RMSERR DNA ; Can't access default filename string 
eae he 
0244 o2¢ ; subroutine to get space for storing filename input strings, 
Osea S27 3; upcase/compress the string into the buffer and return updated size. 
$544 855 ; inputs: ; 
0244 856; R6 - input size 
0244 857; R7 - input addr 
0244 858 ; outputs 
0244 4 5 RO - status 
bse? 60 ; R1 = ptr to space 
244 861; R6 - output size 
0244 B66 3 R7 = output addr 
0244 36 3 
0244 64; R2, R3, R4, RS = scratch 
0244 865; 
0244 66 
ogee 67 GETSPC: 
| i ee 5 44 68 ADDL3 #SLBHSC_BLN,R6,R2 3 get spece to store it 
5B ODD 8 48 4 PUSHL  R1 3; save FSCB 
5B 54 AA 00 4A 0 MOVL FWASL_IMPURE_AREA(R10) ,Ri1 3; restore impure address 
weeeenedl 16 O24E 71 JSB RMSGETSPC1 3 
8B 8ED0 54 i POPL 3 restore FSCB 
1B 50 52 57 7 BLBC RO,10$ 
08 Al $8 0 5A 74 MOVB #SLBHSC_BID,SLBH$B_BID(R1) ; identify structure 
09 Al 6 90 25 75 MOVB R6 SLBHSS BLN(R1) : size of string allocation 
55 14 Al DE 6 ds MOVAL  SLBHST STRING(R1) RS : buffer data ptr 
OAAC 68 7 BSBW UPCASE COMPRESS : copy the name 
OB A 56 = 90 6 4 MOVB R6,SLBA$B_STR_LEN(R1) ; stuff the size of string 
00B4 DA 61 ~~ O€ 9p INSQUE (R1),aFWASL_SCBH_BLINK(R10) ; insert at tail of List 
¢ + RMSSUC 
05 7 1 10$: RSB 


h 
RMOXPEN EXPAND FILENAME STRING 16-SEP=1984 00:43:08 YAX/VMS Macro V04-00 Page 1 
v04-000 STUPFNAME, Allocate and set up SLBHs $-SEP-1984 16:32:58 LAMS- SRCIRMOXPFN MAR; 1 29¢ 19) 


ee 


re ; -SBTTL STUFF_NAME, Allocate and set up SLBHs 
7? 5 ; Stuff the fwa buffers with the file name, default name and related name 
19 § ; strings from the FAB and related name blocks if any 
76 HY 
76 9 STUFF _NAME: 
76 90 
76 91 ; | 
8 76 3 ; Get the FNA string | 
Be 
56 34 A8 QA o 76 $96 MOVZBL FABSB_FNS(R8),R6 ; get size of input string | 
46 13 7A 538 BEQL 10$ ; skip if zero 
57 2C AB 0 7C 889 MOVL FABSL_FNA(R8) ,R7 3 get input addr 
10 1 80 898 BEQL 10$ 3 oh'p if zero 
67 56 OA Ad 06 0 86 899 PROBER IFBSB_MODE(R9) ,R6,(R7) : prs er buffer 
AF 13 028 900 BEQL ERRFNA ; bad 
B9 10 0289 901 BSBB GETSPC 3 get space 
72 50 €9 0288 4 BLBC RO,60$ ; if room 
V #F WASM_FNA_PASS, SLBHS$B_PASSFL ; FWASB_PASSFLGS value 
OA Al 10 90 8 3 o87 MOVB FWASM_FNA_PASS, SLBH$B_PASSFLGS(R1) FWAS SSFLGS val 
029 905 ; | 
029 906 ; Get the DNA string 
B35 aa 
56 35 A8 9A 029 909 10$: MOVZBL FABSB_DNS(R8) ,R6 ; get size of input string 
16 13 0296 910 BEQL : skip if zero 
57 30 4 DO OSo¢ 911 MOVL FABSL_DNA(R8) ,R7 3; get input addr 
1 13 029¢ aig BEQL 5 a if zero 
67 56 OA A9 of Bs ye 91 PROBER IFB$S8_MODE(R9) ,R6,(R7) 3 ore er buffer 
99 13 O2A 914 BEQL ERRDNA ; bad 
90 10 Q2A5 915 BSBB GETSPC 3 get space 
56 50 =€9 8 A? 318 BLBC RO,60$ : if room 
OA Al 01 90 9 4 AA MOVB #FWASM_DUPOK,SLBHSB_PASSFLGS(R1) ; FWASB_PASSFLGS value 
Q2AE 919 ; 
O2AE 359 3; Get the RLF strings 
Q2AE 921 ; 
BgAe 9 § 
57 28 a8 00 0 Ag 923 20$: MOVL FABSL_NAM(R8),R7 : get name block 
7 ose 924 BEQL 110$ : skip if none 
FF68 0 0284 925 BSBW CHKNAMBLK ; check it (no return on error) 
7FFF 8F C B7 9 $ MOVZWL #32767,-(SP) ; RLF counter 
57 10 a7 D BC 927 30$:  MOVL  NAMSL_RLF(R7),R7 : get related nam block 
48 #1 C 928 BEQL 1 3 none 
00000000 ' EF 18 C 929 JSB RMSCHKNAM : check it 
2D 50 3 C 930 BLBC . ; bad | 
56 035 A? 4 CB «931 MOVZBL NAMSB_RSL(R7),R6 3; get size of input string 
39 «13 CF 9 ¢ BEQL 3: Skip if zero 
55 O04 A7 OD D1 33 MOVL NAMSL_RSA(R7) ,RS ; get input addr 
) Ds 934 BEQL ; skip if zero 
65 56 OA AI OQ D 935 PROBER 1)g58_AODE (RO) .A6, (85) ; prober buffer 
1A 1 a $ BEQL 0$ ; ba 
. ef DD D 9 PUSHL R7 ; save NAM blk addr 
57 5 4 E 9 8 MOVL R5,R7 3 put string in right reg 
FF5E es 9 BSBW = GE SPC ; get space 
| 
| 
as a 


| Jo1 


—————— 


RMOXPFN EXPAND FILENAME STRING 16-SEP-1984 00:43: AX/VMS Macro v04-00 Page 19 RM 
v04-000 STUFF_NAME, Allocate and set up SLBHs eet 9:33:98 RMS .SRCJRMOXPFN.MAR; 1 ° (10) vO 
7 8ED E 40 POPL ; retrieve NAM blk add 
11 3 E9 FS az BLBC —«RO, 50$ : 47 room “ 
09 90 O2EC 946 MOVB  #<fWASM_DUPOK!FWASM_RLF_PASS>, = 
OA Al c 94 SLBHS$B_PASSFLGS(R1) : FWASB_PASSFLGS value 
10 Al 4 A7 009 F 944 MOVL___—- NAMSL_FNB(R7) ,SLBHSL_NAM_FNB(R1); save FNB bits 
C4 6E OF F 349 SOBGTR (SP),30$ ; get next RLF 
Fe 349 40$: RMSERR RLF ; Can't access related file name 
51 BED) O2FD 948 50$: POPL R1 : Discard RLF counter 
05 0300 949 60S: RSB 
a) a 
1 952 : Setup the $SET DEFAULT strin 
a aie 
3A 4B 53 49 44 24 53 59 53 0301 955 708: eASCII _/SYSSDISK:/ ; Default device string 
00000009 030A 936 SYSDISKLEN = .-70$ 
51 BEDO O30A 958 100$ POPL : Discard RLF counter 
AF 0300 959 110$ A *70$,R7 ; addr of string 
9A 0311 960 MOVZBL #SYSDISKLEN,R6 : size of string 
FF2D 30 0314 961 TSPC : set up SLBH for it 
E9 0317 308 BLBC 7 . ovit on error 
01 90 O31A 9% MOVB § #FWASM_DUPOK,SLBHSB_PASSFLGS(R1) ; FWASB_PASSFLGS value 


H R1 . 
an 9E : MOVAB B ; 
56 09 ° 
BSBW GETS ; 
E6 50 RO,60$ 
OA Al ‘ 


B4 
RMOXPFN EXPAND FILENAME STRING 16-SEP-1984 00:43: AX/VMS Macro V04-00 Pa 0 RM 
v04-000 PARSE_SPECS, Parse the filename specs -SEP~1984 3:33:98 LANS SRCIRMOKPEN- MAR; 1 - 3) vO 
3 36> : -SBTTL PARSE_SPECS, Parse the filename specs 
1E 369 : Process the filename specifications in the order: 
1E 208 3 FNA, DNA, RLFi, SETDEFAULT 
1E 990° 
i 44 PARSE _SPECS: 
8 1E 358 ASSUME SLBHSL_FLINK EQ 0 
1E 974 ASSUME FWASL_SLBH_FLINK+4 EQ FWASL_SLBH_BLINK 
O31E 975 ASSUME FWASL-SLBH_FLINK=4 EQ FWASL_SLB_PTR 
8 3 arg ASSUME FWASL_-SLBH_FLINK=8 EQ FWASL_SLBA_PTR 
FFFFFFF8 O31E #978 SLBH_PTR=-8 ; offset from R1 to slbh_ptr 
FFFFFFFC Q31E 979 SLB_PTR=-4 : offset from R1 to stb_ptr 
00000000 O31E 980 SLBA_FLINK=0 : offset from R1 to flin 
00000004 bait 383 SLBH_BLINK=4 :; offset from R1 to blink 
00B0 CA 00 ba! 988 MOVL FWASL_SLBH_FLINK(R10),- 
OQOA8 CA 0 $ 984 FWASL_SLBH_PTR(R10) ; init the ‘current’ SLBH 
0398 986 
51. 00B0 CA DE $358 987 FWASL_SLBH_FLINK(R10),R1 ; get que header addr 
50 FB Al D0 032A 988 SLBH_PTR(RT) ,RO ; get next entry 
a ». Oaet 989 RO,RT ; back to header? 
7D «6°13 «©0331 )=—_(- 990 L ; done all List elements 
56 OB AO 9A 0333 991 MOVZBL SLBHS$B_STR_LEN(RO) ,R6 ; length of string 
57 14 AO 0337 336 MOVAL SLBHST_STRING(RO) ,R7 ; addr of string 
19 0338 99 BICB2 #FWAS$C_ALLPASS,- 
6A 0330 994 FWASB_PASSFLGS(R10) : clear per pass flags 
OA AO 88 S74 995 BISB2 SLBHSB_PASSFLGS(RO),- 
6A 341 996 FWASB_PASSFLGS(R10) ; set current per pass flags 
FC Al =©0C AO DO 0346 997 MOVL SLBHSC_SLB_QUE(RO),SLB_PTR(R1) ; set ‘current’ SL 
gy oe 
$307 1000 ; Apply system defaults unless node name was specified. — 
0347 1001 ; Check is based on the fact that the SET DEFAULT string is ALWAYS 
ot) 1308 3 the last entry in the SLBH queue. 
04 Al 50 01 $30) 1004 ° CMPL RO,SLBH_BLINK(R1) : is this the set default SLBH? 
08 12 0348 1005 BNEQ 5$ ; nope - continue 
726A 19 €0 Q034D 1006 BBS #FWASV_NODE, (R10) ,ENDPRS : all set if node present 
5B 6A OF €E0 0355 1908 BBS #FWASVDEVICE, (R10) ,CHKDIR ; branch if device present 
1 ; 
0355 1010 ; If this is the related filename specification, 
355 1011 ; first check to see if the parse of the related file could supply 
$22 10l¢ 3 any of the missing filename elements, and if not, avoid this step. 
55 1014 : 
42 6A 93 E1 358 1015 5$: BBC #FWASV_RLF_PASS,(R10) ,30$ ; branch if not rlf pass 
13 68 a. a 2 1 16 BBC #F ABSVOF PTFOP, (RB) , 108 : branch if input file parse 
2p ! \3 ASSUME FWASV_NAME EQ FWASV_TYPE+1 
03 6A 02 OC + 5D 1 $9 CMPZV = #FWASV_TYPE,#2,(R10) ,#3 : either name or type missing? 
17 2 62 1021 BNEQ 15$ 3; branch if yes (RLF can provide) 


vw 

pe] 

wow 

‘ 

faa 

oOo 

oOo 

v 

oOzz- 
zoo 
v 
crc>S 
fa 
Bee Bete ees 
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RMOXPFN ay ENAME STRING 16-SEP-19 0:43: AX/VMS Macro Vv04-00 P 1 
v04-000 E_SPECS, Parse the filename specs met} 9:33:08 Yams. SRCIRMOXPEN, MAR; 1 sins Gi) 


At last we have a related file name eyeing: parse it; but, before we 
e 


do the related-file parse, make sure if the parse is of an aig es file, 


02 AA 38 9 BITB #WCNTV_MASK ,FWASB_WILDFLGS(R10) : pile fete: type or ver? 
7.64 BNEQ 15$ : bra P mt can provide) 
OD 6A 1C € BBS WFWASV_WILD_DIR,(R10),15$ ; te "itd d recsort es ? 
360—C sd BRB 40$ : don't both with RLF pas 
; additional fields can be filled i 
; This is an input file parse. 
07 6A 19 €1 8 10S: BBC #FWASV_NODE,(R10),15$ ; branch if node name missing 
8 ASSUME FWASV_NAME EQ FWASV_TYPE+1 
ASSUME FWASV_DIR EQ FWASV_NAME +1 
8 ASSUME FWASV_DEVICE EQ FWASV_DIR+1 
OF 6A 04 OC ED 0 CMPZV «= MFWASV_TYPE,#4,(R10) ,#15 ; dev, dir, name or type, missing? 
2B i113 8 BEQL 40$ 3 branch if not (RLF can't help 
0 
0 
0 
0 
0 
0 
0 
0 
0 


FIL 
PEC 
64 
68 
ef 
7 

7? 

? 

7 

7? 

74 
74 
74 
74 
74 
74 
79 
78 
78 
78 
78 
78 
78 
78 
78 
78 
7F 
83 
88 


OCOOOCCOOCOCOOCOSOCOCOSOCGOGCOCOCOCOCSOCOCOCCOCOCOOCOCOOOCOOOOOOoOOoOO * o 
WIAA AIAI AAAI IAI WNAWAAIWNWWIWIAIAIW WWII AINA W AANA AAI 
ee a ek ke a a dd dd 8 


: that the filename and file type. if they are wild, are in the legal 
3; format (i.e. * and * only). 
ced FD £8) 15$: BBC #FABSV_OFP+FOP, (R8) ,30$ ; skip checks if input-file 
OA 6A 15 El BBC #FWASV-WC_NAME, (R105, 208 > skip check if rot wild 
54 0170 8F C 0 MOVZWL rreeen “NAR R4 ; load offset to name descriptor 
OBE7 30 0 BSBW CHECK QLD_FIELD : if filename is of a legal wild 
12 5 8 BNEQ WLOFNA : format, continue 
6A 14 «€1 8D 10535 208: BBC #FWASV_WC es f (R10) ,30$ 3; skip check if type not wild 
54 0178 8 3C 91 10 MOVZWL erase. TY : load offset to file type desc 
0BD9 30 0396 10 BSBW HECK QLD FIELD : if file type is of a legal 
32. =o 12 4 8 BNEQ cL DTYP : wild format continue 
00B8 CA 18 OO 6€ 00 ¢f HK: 058 30S: MOVCS #0,(SP),#0, qSLERe BLN, FWAST -SLB(R10) ; clear fake SLB 
002D 30 AS 05 BSBW = PARSE_STRIN : parse the string 
A6 61 ; 
A6 be 3 Since PARSE_STRING returned, the filename is not fully qualified. 
A6é 1063 ; Therefore, defaults must be applied. 
AS joes | 
OOAS CA OOA8 DA b0 A6 8 40$: MOVL @FWASL_SLBH_PTR(R10) , FWASL_SLBH get ty 3; advance to next 
FF75 = 311 AD 106 BRW PRS_LOOP : and loop 
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M 
STRING 
rse the filename specs 


"$rSEP=1986 90:22:58 ERMSvSRCIANOXPEN MAR:1 = 2° (93y 


The filename string still is not fully pot hag 
: Our last hope is to apply the default d 


rectory. 


Note: It is not necessary to upcase and compress the default directory string 


because RMSS$SETDD calls RMSXPFN to parse a new string prior to storing 
it in PIOSGT_DDOSTRING, thereby assuring that the default directory 
string has been upcased and compressed. 


BBS #FWASV_DIR, (R10) ,ENDPRS ; branch if directory present 
BISL2 #FWASM~DUPOK, (R10) : allow duplicates 
MOVAB a#PIO$GT_DDSTRING,R7 ; get address and size of default 


MOV +,R directory string 
BSBB PARSE_STRING parse default directory string 


— = not necessarily all elements present, 
east problem free 


ENDPRS: — 3 exit with success 


: No partial wildcards allowec. 


a FNM 3 return the filename error 


— TYP 3; return the filetype error 


RM 
vO 


RMOXPFN EXPAND 
V04=000 PARSE _ 


STRING 16-SEP-1984 00:43: AX/VMS M v04-00 P 3 
arse Individual Filename met 3:33:98 LRMS SRCIRMOXPEN. MARS 1 - (93) 


~-SBTTL PARSE STRING, Parse Individual Filename String 


+ 
+ 


PARSE STRING = is the intermediate level filename string parser. 


It sccepts the particular string to be parsed as input from 
EXPAND_NAME and breaks it up into its constituent filename 
elements and either saves these (by equine them to the 
appropriate element buffer) or discards them if they are 
permissable duplicates. 


nodename portion of the string. If this succeeds and the equivalence 
string consists of one or more concatenated node specs, then the 
Left-most node spec is isolated and the process is repeated until 
Logical node name translation fails. Then, the primary node spec is 
moved to the node name element buffer and all secondary node specs are 
are appended to it. Also, there are rules for defaulting access control 
nose gy with respect to the recursive logical node name translation 
procedure. 


If a logical/device name is seen, it is handled as follows: 

Initial H it is not moved; instead a descriptor is set-up to point 

to it. After parsing all remaining elements of the string, an attempt 
is made to translate the logical/device name as a logical name. If 

this succeeds, the equivalence string is then in turn parsed and its 
elements merged in or discarded as for the original string. If the 
translation fails, the equivalence string (which is identical to the 
logical/device name string minus a leading underscore, if any) is taken 
as a physical device name and processed accordingly. 


A logical/filename is treated similarly, with the following differences: 
It is the only string element hence there is no need to continue 
parsing the remainder of the input erring. Moreover, if the translation 
does not succeed the equivalence string is treated as a filename. 


The general flow of control of this routine is as follows: 


XPFN 


OOOO OCOOCOCOOCOCOVOOOOSSOSSS COSCO SOCSOSCOSGOOOOCOOOOOODOOOOOCOOOOOOCOOOO 


WWAWWAWIA AIAN AAAI AAAI AAAI ANIA AIA WINN WIAA 


Bete Se See Ge Ge Se Se Fe Ge Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sse Ss Se Sete 


a 
H ‘error ' 
H isuccess H 
EXPAND _NAME ~~ 
' ' terror 
H success iparse done 
PARSE _STRING ocececceeeccoen 
H » * NOTE: Some work routines called 
H terror H by parse_string pop the 
H isuccess ' stack so they can operate. 
work routine~ ' at the level of parse_string 
‘ ' ' 
H isuccess terror 
CHECK_F IELD-------------- 


If a node spec is seen, an immediate attempt is made to translate the 
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RMOXPFN EXPAND E STRING 19 SE 
Parse Individual Filename “SE 
1 


F P=1984 00:43:08 VAX/VMS Macro V04- 4 
V04-000 PARSE _ST Poloee fors2ie8 aOORPEN MAR shill 
D 


RMS ..SRCIRMOXPFN.MAR; 1 (13) 
: Calling Sequence: 

BSBwW PARSE_STRING 
Input Parameters: 

a Filename string Length 

R Filename string address 

R10 FWA address 

R11 FSCB address (there are two) 
Implicit Inputs: 

The current contents of the FWA. 

The contents of the filename string input. 

The contents of the logical name tables 
Outputs: 


kO-R7 Destroyed 
A Destroyed 


Implicit Outputs: 
The FWA is updated as per the filename element seen 

Completion Codes: 
PARSE_STRING returns to the caller only if there were no errors 
encountered and there remain one or more missing filename elements 
(node excluded). If either or these occur the return PC is popped 
from the stack and, if an error, an RSB is performed with the status 
code in RO (standard RMS), else a branch to ENDPRS is taken. 

Side Effects: 


None 


Be Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Sse Se Se Se Ge Sse Ge Ge Ge Se Ge Se 


PARSE_STRING: 
PUSHL 


56 =D US R ; save lehgth 
én 30 BSBW RMSSCAN_STRING 3 scan string for elements 
6 8ED0 POPL 3; restore Length 
04 AB «56~—=«SO#BI CMPW R4,FSCBSQ_FILESPEC(R11) ; the Lengths must match 
08 13 BEQL =©- 30 ; they do 
RMSERR SYN ; syntax error 
0154 31 208: BRW PRS_ERROR ; exit with error 
ASSUME FSCBSB_FLDFLAGS EQ 0 
668 10 91 30$: CMPB #FSCBSM_NAME, (R11) ; do we have only a name 
07 12 BNEQ 40$ ; 
56 2C AB 7D MOVQ FSCB$Q_NAME(R11),R6 ; get the descriptor 
014C = 331 BRW FILE_OR_LOGNAME ; Could be name or Logname 


SOOoOCOGOOCOCOOCOCOCOOO SSCS COCO SSSSOCCOC COO OCOCOCOOCOCCOOOOOCOCOOOOOCOOOO 
WANA AAA. AMAA AWA AAAAAAANAIAIAANN WI AIANININ NI AINIANIWI AINA ANIA NAAN AAW 


MNHMAMMMMMMmMMooCcoVVTVTVTVVTVTVT9CTVTVTVTVCVVT9VCTVCTV9CTCCVVCVTCTCC"C"C7T"0C0C00"0€8 
I 4 MOO ODODOO0O0 OOOO O00 OOO 0009 00 09 09 09 09 09 09 09 SI NI NINN SN NS NOP AAA AOOonm 


NOU WR OC OO NAME WIN $C OD NAU ES WN OOO NAME WN CO OO NAME WN 0 OONIOULS Wn 


NN a 


PGs Ss as ser ae eS Da Lies bOT a aE CNS = Ay IGE Se MES Ugeknees ea ge iat Oe Pe a, ee MR 


Tt | 


NAME STRING Ig-SEP-19 4 
G, Parse Individual Filename -SEP-1984 

1 18 40$: #FSCBSV_NODE, (R11) ,50$ 
121 FSCB$Q_NODE1(R11) ,R6 
1220 CHECK NODE 

1201 RO, 50S 

1 2 Nob 

: 20$ 

1225 50$: #FSCBS$V_DEVICE,(R11) ,60$ 
g F SCBSO_DEVICE CRIT) ,R6 
1228 CHECK_DEVICE 

1229 RO, 608 

1230 DEV 

1231 20$ 

1¢3¢ 

1233 60S: #F SCBSV_DIRECTORY, (R11) 
1234 FSCB$Q_BIRECTORY(R11),R6 
1235 PARSE_BIR 

1236 RO,65$ 

1237 DIR 

1238 20$ 

1239 

1240 65S: #FSCBS$V_ROOT, (R11),70$ 
1241 #FWASV_EXP_ROOT, (R10) 
1966 CHECK_ROOT 

1g4 RO, 70 

1244 DIR 

1245 99$ 

1246 

1247 708: #F SCBSV_NAME , (R11) ,80$ 
1248 FSCB$Q_NAME(R11),R6 
1249 CHECK _NAME 

1250 RO, 808 

1231 FNM 

1 3g 99$ 

125 

1254 80S: #FSCBSV_TYPE, (R11) ,90$ 
1255 FSCB$Q_TYPE(R11),R6 
1256 CHECK_TYPE 

1257 RO, 90 

1258 TYP 

1259 99$ 

1260 

1261 90$: #SCBSV_VERSION, (R11) 
1 6¢ FSCB$Q_VERSION(R11),R6 
126 CHECK VERSION 

1264 RO, 100$ 

1265 VER 

1266 99$ PRS_ERROR 

1267 

1268 


FINISH PARSE 


Pete Ge 


AX/VMS Macro V04-00 
RMS ..SRCIRMOXPFN.MAR; 1 


3; is there a node spec 


; is there a device name 
; remove trailing ‘':' 


; is there a directory spec 
; jo parse directory spec 


is there a root directory spec 


flag that it was explicit 


go parse root directory spec 


; is there a file name 


; is there a file type 


; is there a version number 


> an error 


; go finish up 


dD 2 


AME STRING 19736-1388 90:43:08 oe Age Macro V04-00 
. Parse Individual Filename “SEP=1984 16:22: RMS .SRCIRMOXPFN.MAR; 1 
Dt Fite t 
: e type 
i 3 
7? 
74 CHECK_TYPE: 
75 BBC #FWASV_FNA_PASS,(R10),10$; branch if not FNA pass 
6 WFWASV_EXP_TYPE,(R10) ; set explicit version flag 
a4 10$ ith . ; remove the leading terminator 
79 MOVZBL #FWASV_TYPE,RO > flag field 
80 MOVZBL #FWASC_MAXTYPE+1,R1 ; check the Length 
81 MOVAQ FWAS$Q_TYPE(R10),R5 ; get output descriptor 
Hf SBW CHECK_FIELD ; process field 
28 RMSSUC 
284 SB 


 ¢ 


RMOXPFN poe FILENAME STRING 197360= 1388 90:45:08 AX/VMS Macro v04-00 Page ¢ 
v04-000 ARSE_STRING, Parse Individual Filename -SEP-1984 16:22: RMS.SRCIJRMOXPFN.MAR; 1 (15) 
4AA 1 § 3 
4AA 1 ; File version 
4AA 1 8 : 
4AA 1 
4AA 1290 CHECK_VERSIUN: 
04 6A 04 €1 OQO4AA 1¢9 BBC #FWASV_FNA_PASS gfF}9) 108; branch if not FNA pass 
SAE 129 SSB #FWASV_EXP_VER, (R10) ; set explicit version flag 
2$ B7 O04B82 1295 10$ DECW R 3 remove the leading terminator 
D6 0484 1294 INCL 8 : 
50 88 9A re 1295 MOVZBL #FWASV =VERSION a > 3; flag field 
51 7 QA 0489 1 38 MOVZBL #FWASC”MAXVE ; length 
55 0180. CA 7E O4BC 129 MCVAQ FWASQ ADERSIONCRIO) RS; get output descriptor 
08C1 3 4C1 1298 SBW CHECK_FIELD ; process field 
0464 1944 RMSSUC 
05 04C7 1300 $B 


F 2 | 
AME STRING 16-SEP-1984 00:43:08 VAX/VMS Macro V04-00 : 8 
arse Individual Fitenane ‘Sasepeiohe Verde iee Lads chcTehopye mass? age of 


ii; We have both a logical name and a device; 
333 ignore the logical name unless no duplicates allowed. 


:i:devdup: bbs #fwaSv_dupok,(r10),prs_exit 
tee rmserr dev 


pP 
4 
0 ; 

1 ; The filename string has been parsed into its basic parts. 
§ ; Check to see if we got a logical name, and if so go attempt 
Z 3; to translate it. 

8 

9 

0 

4 


s6 6000 z 7 #FWASV_LOGNAME Branch if no logical name 


o2 PRS EXIT 
19 1 


(R1 
MOVO =~ FWA$Q COGNAM (R10) 


BBS #FWASD_NODE,(R1 $ 


; Get descriptor of name 
; Branch if node spec - 


; don't translate device names 
In order for searchlists to be completely evaluated, it is necessary 


that they be translated, even if a device-name is already present. 
Only if they don't translate and try to os tuesiz ges used as a device 


ODODODOOOCOCOOOOOCOCOOCOOOOOOOOOOOCOCOOCOSO 


5 he tek a ke ek ak a te ak tk ek ek te ee ek tek ek ek oe ak ek, ek, ek ek ek et et ett 
VVVVT VS V VV VO SFC VGA ANOMOAAAAAAOAOAMOAAOOO 7 


| 
| 
| 
325 : name are they actually not-used. he CHECK_FI subroutine | 
326 ; properly knows how to handle this, in particular, allowing the translation 
327 ; of the FNA string to yield a duplicate device if the NAM_DVI device 
399 3 was used. 
‘ 
330 ;:; This is a change from pre-V4 where logicai devices names were ignored 
331 33:3; if a device name already existed. This is viewed as a ‘’bug’’ in the 
$38 i323 original implementation but it's consequences aren't yer fully understood. | 
333 333 If all goes well with es this change. then these 2 lines may be deleted. 
0405 1334 ;;; Other wise they must be restored and the 2nd ‘10$"' replaced by ‘'DEVDUP’’. 
tt 336 i333 See also the code at DEVDUP and FILE_OR_LOGNAME. | 
04D ? 333 
0405 H S38 bbs #fwaSv_nam_dvi,(r10),10$ ; Branch if device came from NAM blo | 
0405 Y 333 ; _(i.e., do the translation) 
ot¢ re 333 bbs #fwaSv_device,(r10),10$ ; Branch if device already seen 
405 1342 | 
4D5 43 ; Go attempt to translate the name. ; 
Be03 rf 3; If no translation return here and treat as device name. 
G¢b3 46 ’ | 
05¢B 30 04D 47 10$: BSBW TRANSLATE 
tba 1369 | 
4D 50 ; It appears as if it was a device name after all. Allow the name even if | 
4D 51 ; not in standard device name format - if truly invalid it will be caught when 
4D 26 3; attempting to assign the channel. This allows flexibility for different 
res :? ; device/controller/unit naming schemes as well as remote node logical names. | 
abe 1355 | | 
4D 35 : In order to call check_field (which would return one level up to_EXPAND_NAME 
4D 58 ; on an error) we must make this code run at work routine level. This can only 
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408 1359 ; return on and error from check_field 
408 1360 ; 
408 1361 
08 10 0408 1 66 15$: BSBB 208 
4DA 136 RMSERR DEV 
0058S sé rt 4 } rt: BRW PRS_ERROR 
50 F  OOA He 1 96 208 MOVZBL #FWASV_DEVICE,RO : flag which field 
51 FF BF 9A O4E5 136 MOVZBL #FWASS “DEVICEBUF ,R1 : length 
55 O0E0 CA 7E 0469 1 68 MOVAQ Q_BEVICE(R105 ,R5 ; output descriptor 
0894 3 red 1 8 BSS tH HE tk “FIELD 
4F1 1370 3; blbc r0,30$ 3 only if we used this spec. 
4F1 1371 G3; cmpb afiaSa_lognams4(r10) .#*a/_/ 3 st gher an underscore? 
4F1 1 i $33 bneq 0$ ; branch if not 
4F1 1373 ;;; ssb #fwaSv_dev_under,(r10) ; flag leading underscere 
50 BEDO O04F1 1374 368: POPL RO 3 pop return pc and exit 
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PRS_EXIT ... 
The parse of this string is complete. 


If this was the parse of the primary name string (FNA), handle explicit 
flags. In particular, use the explicit type and version flags to 

set the type and version seen flags (i.e., explicit null —e and 
version cause no defaults to be taken for these fields). so 

copy the current device and directory seen flags to the explicit 

device and directory. 


PRS_EXIT: 
BBC #FWASV_FNA_PASS, (R10) ,20$ ; branch if not FNA pass 
ASSUME FWASV_EXP_VER EQ <FWASB_WILDFLGS*8> 
ASSUME FWASV_EXP TYPE EQ FWASV_EXP_VER+1 
ASSUME FWASV_TYPE EQ FWASV_VERSION+1 


If EXP_TYPE is not set but TYPE is set, then its ok, don't unconditionally 
overwrite TYPE. 


INSV FWASB_WILDFLGS(R10),- 3 set version from 
#FWASO_VERSION, #1, (R10) : ‘explicit’ flag 

BBC #FWASVEXP_TYPE, (R10), 108 : if EXP_TYPE not set, 

; then Tgnore TYPE 

INSV FWASB_ WILDFLGS(R10),- ; set version and type from 
#FWASV_VERSION, #2, (R10) : ‘explicit’ flags 

ASSUME FWASV_EXP_DIR  €Q FWASV_EXP_DEV=-1 

ASSUME FWASV_DIR EQ FWASV_DEVICE=1 

108: EXTZV #FWASV_DIR,#2,(R10) ,RO ; get dev and dir 

INSV O,#FWASV EXP’ DIR, #2, (R10) t and set explicit dev & dir 

BBC #FWASV_NODE, (R10) 30$ ; if not network parse, 

SSB #FWASVEXP_NODE, (R10) : mark explicit node 


If we have a node name and quoted string, then stop the parse in its tracks 


; and don't go looking for trouble 


208: BBC #FWASV_NODE , (R10) , 308 : if not ngtuork parse, 


; then skip 
BBS #FWASV_QUOTED,(R10),PRS_EXIT1 ; if quoted then stop parsing 


; Check for a fuily qualified file name string. 


If any fields are missing, return to caller te apply defaults. 


30$: CMPB FUASD FLRFLES (RIO) .PFUASC ALL ; all of dev.dir.nam,typ,ver 


BNEQ PRS 3 ; branch if not 
BBC #FABSV_OFP+FOP,(R8),PRS_EXIT1 ; branch if input file parse 


STRING 16-SEP-1984 00:43: AX/VMS Ma v04-00 P 0 | 
arse Individual Filename |S-SEP=1986 16:22:58 mOX age 30, | 
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v04-000 PARSE_STRING, Parse Individual Filename ~$FE 1 382 8:53:98 RMS .SRCJRMOXPFN.MAR; 1 _ dh 
BITB #WCNTV_MASK,FWASB_WILDFLGS(R10) ; 6 name, type, or ver? | 
BNEQ PRS_EXIT2 : if yes, 9° apply defaults 
BBS #FWRSV ¥ALO_DIR. (R10) .° 3; if any wild d Girectories 
PRS_EXTT i go apply defaults | 
} 


: return to stop parsing 


’ 


I 
_STR p 
02 AA 8 : D 1433 
6 ! 1434 
6A 4 t 1? 5 
$ 14 $ 
5 1036 
14 
ur ids 
537 1226 PRS_EXIT1: | 
01 BA 0537 144 POPR #*M<RO> 3 pop return PC 
333 jecs 
539 1446 : 
233 1908 return to apply defaults 
$839 J4¢9 pRS_EXIT2: 
539 1450 RMSSUC 3 it f 
0 83 e ite a exit from parse successfully | 
O83 1288 | 
8330 1454 ; An error condition has been encountered. 
053D 1455 ; Error code is in RO = pop the extra PC from the stack and return 
Bb Tee 
05% 1458 PRS_ERROR: 
51 BEDO 053D 1459 POPL R1 
05 0540 1460 RSB 
0541 1461 


—_ 
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STRING 
arse Individual Filename -SEP-1984 RMS .SRCIRMOXPFN.MAR; 1 


; We have a single field with no punctuation; it is either a 
; logical name or a file name. In order for it to be a logical name 
; the following must be true: 


1. there must be no other filename elements. 
2. it must translate. 


Previous to V4, a3 described at FINISH_PARSE, once a device name was 

seen then all povicer egret names were ignored and a file/logical name 
was forced to be treated as a filename. With the advent of search Lists, 
this is no longer true, and a file/logical name is ALWAYS attempted to 

be translated. The commented-out code may be removed at the same time 

as the FINISH_PARSE code. 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 


OOWONA NLS WN | O OONOUE WN" OOOnNOuslw Uv 
>. 


9 FILE_OR_LOGNAME : 
$33 tstb fwaSb_fldflgs(r10) 3; any flags set? 
333 beql 10$ 
ii: ASSUME FWASV_DEVICE GE 8 
iit cmpb  fuaSbefldfigs(ri0).- _; only device seen 
$33 . #<fwaSm_devicea-8> 
$33 ne 
see bbe. #fwaSv_nam_dvi,(r10),30$; branch, testing this as a filename 
oR : unless device came from NAM block 
16: BBS #FWASV_NODE,(R10),30$ ; branch if node seen 
AB 7D MOVQ FSCB$Q_NAME(R11),-= 3: store the name to translate 
CA FWASQ_COGNAM(R105 


Try to translate the name, if it is a logical name then translate does not 
return but continues parsing the new logical name. If it is NOT a logical 
name -or- the translation is not to be used then it exits with RO 

indicating which it was. 


0555 30 BSBW TRANSLATE attempt translation, if translate 


returns failure, its a filename 


0c 50—=—s«éEY BLBC RO, 30$ was this a hidden device 
1A 10 BSBB CHECK DEVICE yes, treat as a device name 
1450 €8 LB 0,408 was there an error 


BLBS 
RMSERR DEV 
BRB PRS_ERROR 


call it a device error 
exit 


; Say result name is really the filename 


0307 30 30$: BSBW CHECK_NAME ; process it that way 


50 «EB BLBS RO,408 : was there an error 
RMSERR FNM ; call it a file name error 
D3 11 BRB PRS_ERROR 3: exit 


a ee a a ee ee ee ee ee ee a ee a a a a ad dd od dd OG 
PUPP PVPS TTI Be BS EEE PPP PPP PPP PPP PPP PPP PPP PL EELS 8 


FFSB 31 


a 
So 
wn 


BRW F INISH_PARSE ; finish up parsing 
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v04-000 PARSE_STRING, Parse Individual Filename -SEP-1984 

260 1520 ; 

6D 1521 ; Process logical/device name 

56D 1 gi 

56D 1 

56D 1524 CHECK_DEVICE: 

50 30 9A 056d 1525 MOVZBL #FWASV_LOGNAME ,RO 
51 FF BF 9A 0570 1526 MOVZBL #LNMSC~NAMLENGTH,R1 
55 0000 CA 7E 0574 1527 MOVAQ FWA$Q_COGNAM(R105 ,R5 
0809 30 0579 1528 BSBW  CHECK-FIELD 
057C 1529 RMSSUC 
05 Or 1530 20S: 6 
580 1531 


08 AX/VMS Macro V04-00 Page 33 
: RMS .SRCIRMOXPFN.MAR; 1 (19) 


flag field 
Length 


get output descriptor 
process field 


eee 
CHECK_N 


E1 


i kk kk kk dt td 
rab th db db 4h dh dh tbh th dh dh db Ah dh ab dh ah db edbdh ab th db db sh sh sb sb ah ah shes heal shea) ea! $s 
PARE ARARAA MMIII SBP PPPS EWIN OO 
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5$: 


16-SEP-1984 00:43: AX/VMS M 4- 4 
0:53:98 Ya RC IRMORPYN Mans 1 aoa 3 


-SBTTL CHECK_NODE, Check Node Specification 
We have a primary node spec... 
A file specification string may begin with a List of concatenated 
node spec strings (i.e., nodel::node2::node5::dev:(dirjfile.typ;ver). 
Further, the first non-null node spec is a candidate for iterative 


logical node name translation, where each equivalence string may yield one 
or more concatenated node spec strings! 


: Since the first node spec can only be null we can check here 


BBC hat ey og ,10$ 3; branch if not null 
SSB #FWASV_EXP_NODE,(R10) ; set flag to disable stickness 
7 


; Allocate space for the Network Work Area (NWA) unless it has already 
been allocated via previous pass thru this code. 


10$: TSTL IFBSL_NWA_PTR(R9) : if nwa there? 
BNEQ 208 ; branch if yes 
PUSHL R11 save FSCB address 
MOVL FUASL_IMPURE,AREA(R10) .~; restore impure area pointer 
JSB NTSNWA_INIT 3; allocate and initialize NWA 
POPL R11 3 restore FSC 
BLBC RO,5$ 3; branch for error exit 


; continue with next field 
| 
| 
| 
| 
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v04-000 CHECK_NODE, Check Node Specification eat 7 93:33:58 RMS.SRCJRMOXPFN.MAR; 1 (33) va 
A3 1570 ; 
sh i ; Logical node name translation... 
5A3 1575 ; Attempt to translate the node name string of the (left-most) node spec. 
5A3 1574 ; For the translation to succeed, the equivecente string must represent 
B24 1575 ; one or more concatenated node specs, i.e., each field must be delimited 
eh 1378 ; by a double colon. 
OA 1328 3 Note: If node name is prefixed by underscore, no translation occurs 
B2A 132? 3 but the underscore is removed. 
B24 1581 ; Note: If node name contains an access control string with the password masked 
SAS 15 § 3 out, then an attempt is made to translate the string consisting of 
B24 13 ? $ <node name + access control string> as a special logical node name. 
5A3 1585 ° 
03h 1386 ASSUME FWAST_NODEBUF EQ <FWASB_UNDER_NOD+1> 
59 DD O5A3 1588 20S: PUSHL R9 3; save ifb addr 
59 3C AY DO O5A5 1589 MOVL IFASL_NWA_PTR(RY) ,RO ; get address of NWA 
0244 C9 D4 O5SA9 1590 CLRL NWASQ_ACSTRI) 3 zero ACS size/flag 
025C C9 D& OSAD 1591 CLRL NWASQ_INODE(R9) ; initialize intermediate node spec desc 
052 C9 «= 9E «=—(05B1 1236 MOVAB NWAST— INODEBUF +NWASC_INODESIZ(R9) , = 
0260 C9 0585 159 NWASQ_INODE+4(R9) 3; strings will be added 
0588 1594 ; from right to left 
0588 1595 TRANSLATE_LOOP: 
OF 56 15 €1 Q5B8 1596 #FSCBSV_PWD,R6,10$ 3; branch if password is not masked out 
56 02 A2 OSBC 1597 SUBW2 oR ; of access control string of node spec 
67 SF 8F 91 OSBF 1598 CMPB #*A/_/,(R7) ; remove leading underscore character 
28 I 05¢c3 1599 BNEQ 20$ ; (Cif present) before attemptin 
56 D7 O5C5 1600 DECL R6 3; translation of special logical node 
57 606 «=605C7? =—1601 INCL R7 3 mame string with password masked out 
ie B268 1606 BRB 208 ; translate 
0236 30 O5CB 1604 10S: BSBW PSEUDO_CHKFLD ; validate node spec syntax 
56 02 Ae Back 1605 SUBW2 , : remove trailing '::‘ 
18 56 12 €E1 0501 1606 BC #FSCBSV_ACS,R6,20$ ; branch if there is no embedded access 
0505 1607 Ss 3 control string in node spec string 
67 56 22 3A 0505 1608 LOCC #*A/"'/ ,R6,(R7) : find start of access control string 
0509 1609 : on return <RO,R1> => ACS 
56 =. 50 . 0509 1610 SUBW2 RO,R6 3 compute size of node name string 
0244 C9 OD b2e6 1611 TSTL NWASQ_ACS(R9) 3 ignore this access control string if 
0B 12 OSEO 1o1¢ BNEQ ; there is a default one in ACS buffer 
Se c9 8650 : B2es 161 MOVL RO,NWASQ_ACS{(R9) 3 store size of ACS 
0248 D 61 50 5E7 1614 MOVC3 RO,(R1),@NWASQ ACS4+4(R9); make this current default ACS string | 
023c c9 = 556 D OSED 1615 208: MOVQ R6,NWASG_LOGNAME (R9) 3; store descriptor of node name string 
33 1918 ; to translate 
09 €0 OSF 1918 BBS #LNMSV_TERMINAL ,- ; Marked terminal? 
5B 0238 C9 ar 1619 NWASL_RLTATTR(RS),47$  ; Branch if so 
H 1 1 ASSUME NWASL_XLTBUFFLG EQ NWASL_XLTCNT+4 
51 0228 ¢9 Of SFB 16 5 MOVAL NWASL_XLTCNT(R9),R1 ; Get ptr to xlt count 
A fF SFD 1624 AOBLEQ #LNMS$C_MAXDEPTH,- < 
09 81 SFF 1625 R1)+,40$ ; Branch if < 10 translations done 
9 8EDO 0601 1626 30$: POPL 
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v04-000 CHECK_NODE, Check Node Specification 87S EE nob 93:33:98 YAMS SRCIRMOKPEN.MAR: 1 : 3) vg 
1 8EDO 4 1627 POPL R1 ; Discard CHECK_NODE return pc 
O52F Ri é i 19 8 BRW ERRLNE ; Declare error in logical none 
60A 1650 ; 
60A 1631 ; Attempt logical node name translation. 
SOA 1638 
55 Q2ac C9 OD 8° A 1634 40$: MOVAL NWAST_XLTBUF1(R9) RS ; addr of buffer for translation 
s 60F 1635 MCOML (R1),TR1)+ 3; check if this buffer is free 
—. 3 Bele 16 § BNEQ 3; branch if ok 
55 OQO3AC 2 pF 061 16 MOVAL NWAST_XLTBUF2(R9) ,R5 : swap buffers 
0210 C9 we Bele 16 3 45$: MOVL RS ,NWAST_ITM_STRING#+4(R9); set address of buffer selected 
OA97"CF OF 43 16 PUSHAB W*TABNAM ; make descriptor of table name 
oC oo 1640 PUSHL S“#TABNAM_SIZE 
51 E 00 0624 1641 MOVL SP,R 3; remember where it is 
0627 1646 STSTPT NTXLATLOG ; 
062D 164 STRNLNM_S ; Translate the name 
062D 1644 LOGNAM=NWASQ_LOGNAME (R9) ,- 
062D 1645 TABNAM=(R1) ,= 
0620 1646 ATTR=W“LNM_ATTR,=- 
0620 1647 ITMLST=NWAST_ITM_LST(R9) = 
062D 1648 ACMODE=FWASB_XLTMODE (R105 
5E 08 CO Of46 1649 ADDL2 #8,SP ; discard table name descriptor 
OF 50 €8 0649 1650 BLBS ° 3; Was translation successful? 
O1BC 8F 50 Bi Q64C 1651 CMPW RO, #SS$_NOLOGNAM 3; no such translation? 
AE 12 0651 165¢ BNEQ 30 ; quit on odd error 
54 023¢ C9 7D 0653 1653 47$: mMOvVa NWASQ_LOGNAME (R9) ,R4 3 get back source string descriptor 
OOAF 31 $628 1938 BRW TRANSCATE_FAIL 3 proceed with source 
0234 C9 05 0658 1656 50$: TSTL NWASL_XLTMAXINDX(R9) ; check for searchlists 
F2 19 O65F 1657 BLSS 47$ 3 No good ones, assume no tran 
42 14 0661 1658 BGTR ERRNOD : no searchlists allowed 
OA €1 0663 1659 BBC #LNMSV_EXISTS,- 3 must be a translation 
3C 0238 C9 0665 1660 NWASL_XLTATTR(R9) ,ERRNOD 
54 0230 C9 3C 0669 1661 MOVZWL NWASL_XLTSIZ(R9) ,R4 ; Store equivalence string size ; 
Beek 1996 3 NOTE: <R4,R5> => equivalence string 
Oece 1664 
O66E 1665 ; Process the equivalence string. 
Oece 1667 | 
56 54 7D Q66E 1668 mMOVa R4,R6 3 copy descriptor to required registers 
06A1 30 0671 1669 BSBW UPCASE_COMPRESS ; Perform upcasing and string 
Boze 1670 3 compression in paece 
5B 0104 CB 9E 0674 1671 MOVAR FSCBSK_BLN(R11),R11 3 use secondary FSCB 
56 Bp 679 1676 PUSHL ; Save Length of input | 
F982" 30 067B 167 BSBW RMSSCAN_STRING | 
56 BEDO O67E 1674 POPL ; Retrieve Lengeh of input 
04 AB 56 Bi 0681 1675 CMPW R6,FSCBSQ_FILESPEC(R11) ; Did we use all of it? 
1E 12 ; 1676 BNEQ ERRNOD 3 nope, then return error 
4 1978 ASSUME FSCBSB_FLDFLAGS EQ 0 
6B 01 91 0687 1680 CMPB #FSCBSM_NODE, (R11) ; there better be just nodes 
19 12 Q68A 1681 BNEQ ERRNOD 
68C 16 ¢ 
068C 1683 ; 
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D FILENAME N 4 00:43: 
v04-000 CHECK_NODE, Check Node Specification = $eb= 1386 93:33:98 LRMS  SRCIRMOXPEN-MAR: 1 1) 
$ : 16 ¢ 3; Are thier intermediate node names? 
50 O1A 9A 06 16 § MOVZBL ere naetataecichocete ; get number of nodes 
5 D7? 06 16 DECL R 3: remove the first and if not 
0 13 692 16 3 BEQL 60$ ; more than one node spec string skip 
1 1 694 16 BSBB INTERMED_NODE 3; process extra node names 
56 44 AB 7D 0696 1690 608: mMOVa FSCB$Q_NODE1(R11),R6 3 get next node for translation 
5B FEFC CB 9E Q69A 1691 MOVAB -FSCBS$R_BLN(R11),R11 3 restore primary FSCB 
FF16 31 O69F 1996 BRW TRANSLATE_LOOP 3 try another translation 
06A2 169 
O6A2 1694 ; 
BoA 1695 ; Handle node name errors. 
6A2 1696 ; 
06A2 1697 
50 8EDO O6A2 1698 ERRNOD1:POPL RO ; discard return pc 
Q6A5 1699 ERRNOD: RMSERR NOD ; declare error in node name 
59 B8EDO O6AA 1700 POPL R9 3; restore ifb 
05 Q6AD 1701 ; exit with completion code in RO 
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v04-000 CHECK_NODE, Check Node Specification ety 7 18:33558 RMS.SRCIRMOXPFN.MAR; 1 . (3) vi 
Q6AE 1703 ; 
6AE 1704 ; Process 2nd to nth node specs found in the Squrvetence string. 
6AE 1705 ; Node names in these node specs are not candidates for logical name 
6AE 17 § ; translation. Also, any access control string supplied with the above 
O6AE 1707 ; logical name is the default (and overrides any) access control string 
Q6AE 1708 ; for the Last node spec of the equivalence string. 
Q6AE 1709 ; | 
6AE 1710 ; Input: 
SeAE 1712 RO Index of | d | 
3 - Index of last node spec 
O6AE 1518 ; 
6AE 1714 
6AE 1715 INTERMED_NODE: 
O6AE 1716 
OeAE i518 : Handle defaulti f l i d d 2nd h nod 
; Handle defaulting of access control string and append 2nd to nth node specs 
Q6AE 1719 ; to an laterasdiate node spec buffer. . as s 
Q6AE 1720 ; 
QO6AE 1721 
57 $0. AB 0d OGAE 1722 MOVL_ FSCB$Q_NODE2+4(R11),R7 ; get address of rest of string | 
44 AB AS O06B2 172 SUBW3 FSCBS$Q_NODE1(R11),- : get size of string minus the | 
56 OC AB 0685 1724 FSCB$Q_-NODE(R11),R6 ; tirst node spec | 
0244 C9 DS 0688 1725 TSTL NWASQ_ACS(R9) : branch if there is no defualt 
2F 6.13) «06BC «1726 BEQL 30$ 3 access control string to apply 
54 44 AB4O 7D O6BE 1727 MOVQ FSCB$Q_NODE1(R11)CROIJ,R4 ; desc of last node 
54 02 A2 O06C3 1728 SUBW2 #2,R4 
06C6 1768 
O6ce 1731 ¢ Apply default trol string to nth nod iding th 
3 App efault access control string to nth node spec overriding the one 
Beee 1736 3; Cif bey! associated with it. ° . . 
06C6 1734 ; Note: <R4,R5> => Last (nth) node spec (not including double colon delimiter) 
06C6 1735 ; <R6,R7> => 2nd to nth node spec string (including '::'s) 
06C6 1736 ; 
0666 1737 
51 54 3C 06C6 1738 MOVZWL R4,R1 
7) 3s CO O6CD T7399 ADDL2~ R5,R1 ; R1 => end of Last node 
07 54 12 €1 O6CC 1740 BBC #FSCBSV_ACS,R4,20$ ; branch if there is no access 
0600 1741 : control string to override 
65 54 22 3A 0600 17t6 LOCC #*A/"'/,R4, (RS) 3; <RO,R1> => ACS é 
56 50 C2 Q06D4 174 SUBL2 RO,R6 ; Reduce size of etring by size 
06D7 1744 ; .of ACS being remove 
56 0244 C9 AO O06D7 1745 208: ADDW2 NWASQ_ACS(R9) ,R6 ; increase size of string by 
gepe 1768 : .size of ACS to be added 
0244 C9 28 O6DC 174 MOVC3 NWA$Q_ACS(R9),- ; insert default access control 
61 0248 D9 06EO0 1748 @NWASG_ACS+#+4(R9), (R1) : string into last node spec | 
63 3A3A 8F BO O06E4 1749 MOVW #*A/::7,(R ; add delimiter to string 
0244 €9 D4 0669 1750 CLRL NWASQ_ACS(R9) : zero ACS size/flag so we 
O6ED 1751 ; don't do it again 
56 56 3C O6ED W736 30$: MOVZWL R6,R6 ; clear and flags 
025¢ C9 «656 = «60 bers 175 ors R6,NWASQ_INODE(R9) ; update intermediate node spec 
0260 C9 56 C2 O6FS 1754 SUBL R6,NWASQ ad hp lead, ; descriptor 
0080 8F O025C C9 BI pera 1755 CMPW NWASQ_INODE(R ) ,ANWASC_INODESIZ ; make sure that this node spec 
1 1236 : will not overflow buffer | 
9F 1A 0701 175 BGTR ERRNOD1 ; branch on error 
0260 D9 67 56 $8 703 1758 MOVC R6,(R7) ,ANWASQ_INODE+4(R9) : prefix node spec to the others | 
5 0709 1759 RSB ; try another translation | 
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v04-000 CHECK_NODE, Check Node Specification -SEP-1984 16:22: RMS .SRCIRMOXPFN.MAR; 1 (23) 
| 
70A 1761 ; | 
or A 1106 ; The Last attempted og te node name translation failed--we have a real | 
7Q0A 1765 ; node name. Construct the primary node spec from this node name and any 
O70A 1764 ; default access control string that may be in effect. Finally, update the | 
70A 1765 ; node name element buffer with the primary and any intermediate node specs | 
Ppa 1796 ; found so far. 
850A 1768 ; Note: <R4,R5> describes a node spec without '::', but possibly including a 
070A 1769 ; leading noise ''."’ character. 
Q70A 1770 ; 
070A 1771 
Bra Ha TRANSLATE FAIL: 
07 54 B1 O70A 177 CAPW R4 ,#FWASC_MAXNODNAM+1 ; check node name string size 
96 1A 0700 1774 BGTRU ERRNOD ; branch on error 
a}! oe 43 O70F 1775 OVL 5,R7 ; store address of string 
> a C Orie 1776 MOVZWL R4,R3 3; get address past string 
0244 C9 28 0715 1777 OVC3 NWA$Q_ACS(R9),- ; append access control string (if any) 
6543 0248 D9 0719 1778 @NWASG_ACS+4(A9), (RS) CR3I ; and double colon to construct 
83 3A3A BF 0 fal; 1779 MOVW #*A/::7,(R3)+ 3; primary node spec gtring 
50 53 57 C3 0723 1780 SUBL3 -R7,R3,RO ; get new Length (saving R6 flags) 
56 50 B80 0727 1781 MOVW RO,R6 3 Now <R6,R7> => node spec string 
072A 1786 | 
072A 1783 ; 
Q72A 1784 ; Validate and copy the primary (left-most) node spec to the node name element 
072A 1785 ; buffer. If node name has been seen during a previous pass (FNA or DNA), then 
072A 1786 ; this node spec will not be copied. 
072A 1787 ; 
072A 1788 
50 19 9A OQO72A 1789 MOVZBL #FWASV_NODE,RO 
51 34 3C O72D 1790 MOVZWL #<FWAST_MAXNODNAM+NWASC_MAXACS+2>,R1 
55 0008 CA 7E 0730 1791 MOVAQ FWA$Q_NODE(R10), 
064D 30 0735 1o6 BSBW CHECK_FIELD 
0738 179 
0738 1794 ; , 
0738 1795 ; If no copy occurred, mark this to signify that intermediate and secondary 
0738 1796 ; node specs also should be ignored for this pass (DNA or RLF). | 
0738 1797 ; 
0738 1798 
06 50 E€8 0738 1799 BLBS RO,10$ ; branch if primary node spec 
0738 1800 ; was copied to element buffer 
0738 1807 SSB #FWASV_NOCOPY, (R10) ; flag that the primary node spec 
38 4020611 «O73F 1306 BRB 50$ 3 was not copied to element buffer 
00D8 CA 7D 0741 1803 10S: MOVQ FWASQ_NODE(R10) ,- 3 save descriptor of primary 
01B4 CA OF 1308 FWASQ~NODE1 (R105 3; node spec string 
6 B4& 0748 1805 CLRW R ; clear size field 
01B4 CA 56 C8 tots 1306 BISL2 R6,FWASQ_NODE1(R10) ; set flags in the descriptor 
O74F 1808 H 
074F 1809 ; Append intermediate node specs (if any) that were generated from logical 
Boer 1319 3; node name translation to the node name element buffer. 
Oret 13i¢ ; First call scan string to reparse the nodes, no need to check fo syntax 
074F 1813 ; and what ever since we built the names ourselves 
gre ae | 
56 02506 C9 3C Oper 1816 MOVZ2WL NWASQ_INODE(R9) ,R6 ; get descriptor of intermediate | 
26 «613 «(0754 «+1817 BEQL 50$ : node spec List, if null then exit | 
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v04-000 CHECK_NODE, Check Node Specification =SEP-1984 16:22: RMS .SRCJRMOXPFN.MAR; 1 (23). 
a 0260 C9 0 P36 1818 MOVL NWASQ_ INODE+4(R9) ,R7 ; get address <R6,R7> 
B 0104 CB F 758 1819 MOVAB FSCBSC_BLN(R11),R11 ; use secondary FSCB 
F89D" 760 1820 BSBW RMSSCAR_STRING ; rescan the string to isolate 
763 1821 3; intermediate node specs 
af D4 0763 1 ¢ CLRL AP 3 start loop 
01 AB C 91 0765 1 30$: CMPB AP ,FSCBSB_NODES(R11) 3; are we done 
OC 1& 0769 182% BGEQU § 40 ; yes 
56 44 ABGC 7D 768 1825 MOVQ FSCBSQ_NODE1(R11) CAP] ,R6 ; get next node 
00B9 30 07 1 § BSBW APPEND_NODESPEC 3 append next intermediate node spec 
{ae 1 3; to node name element buffer 
5C D6 0773 1828 INCL AP ; index to the next nodespec 
Sey Bre 1829 BRB 30$ ; loop 
5B FEFC CB- 9E Boor : 40$: MOVAB =FSCBSC_BLN(R11),R11 ; restore FSCB 
o77Cc 1 3 : 
077C 18335 ; Logical node name translation performed on the left-most node spec of 
077C 1834 ; the user supplied file specification string is complete. Now process any 
077C 332 3; other node specs and/or a quoted string that may follow. 
077C 1836 ; 
077C 1837 
5C D& O77C 1838 50$: CLRL AP : index of node to use in 
O77E 1839 3 secondary_node 


| 
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v04-000 CHECK_NODE, Check Node Specification et 8753:98 RMS .SRCIJRMOXPFN.MAR; 1 . 
77E 1841; 
ore } tS ; Check to see if the user specified any secondary node specs 
77E 1844 ° 
77E 1845 SECONDARY_NODE: 
5C 3s 6 ore 1 re INCL i get next node 
01 AB 36 91 7 184 CMPB AP ,FSCBSB_NODES (R11) 3 any nodes left? 
: 1F 0784 1 48 BLSsu 108 : branch if yes 
9 BEDO 07 § 184 POPL Ry 3; restore ith 
? 1 29 RMSSUC ; exit wit success 
0S O78C 185 $B 
O78D 1883 
078D 1854 ; The user has supplied a secondary node spec string. Append it to the 
078D 1855 ; node name element buffer, but do not perform logical node name translation 
078D 1856 ; unless the node spec string has its password masked out. 
Bree 18a: 
56 44 ABSC 7D 078D 1839 108: MOVaQ FSCB$Q_NODE1(R11)CAPJ,R6 3 qet descriptor of new node 
6156 15 €1 0792 1860 BBC #FSCBSU_PwWD,R6,30$ ; branch if password is not masked out 
0796 1861 ; of access control string of node spec 
67 SF BF 91 0796 1866 CMPB #*A/_/,(R7) ; remove leading underscore character 
04 12 O79A 186 BNEQ 20$ :; (if present) before ostonpt ing 
56 «6B? «(079C «(1864 DECW R6 ; translation of special logical node 
iNCL ; Mame string with password masked out 
57 D6 O79E 1865 C R7 ith d ked 
SAS Tie 
G7A0 1868 ; Attempt one level cf logical node name translation to obtain the original 
Q7A0 1869 ; access control string because the current node spec string has its password 
07A0 1300 3; masked out. 
Brae 1872 ; Use of STRNLOG here is okay as no extended logical name features are needed. 
07A0 1873 ° 
07A0 1 ASSUME TRNLOGS_ACMODE €0 <TRNLOG$_DSBMSK=-4> 
07A0 1875 ASSUME TRNLOGS_TABLE EQ <TRNLOGS$_ACMODE-4> 
07A0 1876 ASSUME TRNLOGS-RSLBUF £0 <TRNLOG$_TABLE-4> 
QO7A0 1877 ASSUME TRNLOGS$S_RSLLEN EQ <TRNLOGS$_RSLBUF -4> 
O7A0 1878 ASSUME TRNLOG$_LOGNAM £0 <TRNLOGS_RSLLEN=4> 
OA0 + 143 ASSUME TRNLOGS_NARGS €Q 6 
56 02 Ae Bray 1881 208: SUBW2 #2,R6 3 remove trailing '::' : 
023c (9 56 7D Boag 1386 MOVQ R6,NWASQ_LOGNAME (R9) $ store donrietor of node spec string 
; to translate 
03 DD Brae ieee PUSHL #3 : only look in process table 
00 DD O7AA 1885 PUSHL #0 ; do not return mode of equiv string 
08 D QO7AC 1886 PUSHL #0 ; do not return table of equiv string 
024C C F Q7AE 1887 PUSHAQ NWA$Q_XLTBUF1(R9) $ speci ty address of descriptor of 
ave 1888 ; buffer to receive equivalence string 
0230 C9 DF O7B2 1889 PUSHAL NWASL_XLTSIZ(R9) ; specify address of word to receive 
786 1890 ; equivalence string size. é 
023 C9 «=7F 0786 1891 PUSHAQ NWA$Q_LOGNAME(R9) : specify address of descriptor pointing 
7BA 1 35 ; to logical name candidate 
7BA 189 STSTPT NTXLATLOG ; 
00000000 * 9F 6 FB 7C9 1894 CALLS #6,@#SYSSTRNLOG ; Translate the logical name 
01 B1 O7C7 1895 CMPW RO I ia amatatas ; Was translation successful? 
12 zCA 36 BNEQ = ERRNOD : Branch if not 
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| v04-000 CHECK_NODE, Check Node Specification ae Set Sf 90:53:98 LRMS. SRCIRMOXPEN. MAR: 1 . (24) 
9 «+3 7CC 189 MOVZWL NWASL_XLTSIZ(R9) ,R6 ; descriptor of equivalence 
3 o3 C9 Hy 7D 1839 MOVL NWASQ-XLTBUF1#4(R9) ,R7 : string in CRE GAT> 
706 1901 ; 
£08 a ; Process the equivalence string. 
106 1904 : Note that a call to UPCASE_COMPRESS is not required. | 
706 1906 ° 
58 0104 £8 9E 706 1909 MOVAB FSCBSK_BLN(R11),R11 ; use yy hog FSCB 
6 } 708 1908 PUSHL ; save string length 
i 0 QO7DD 1909 BSBW RMSSCAN_STRING ; parse eq. string 
6 BEDO O7EO 1910 POPL ; restore input length 
56 04 AB. Bi 7E3 1911 CMPW FSCB$Q_FILESPEC(R11),R6 ; was the full spec parsed ok 
18 12 O7E 1318 BNEQ ERRNOD2 i; no, exit 
O7E9 191 
149 Vale ASSUME FSCBSB_FLDFLAGS EQ 0 
6B 01 O7E9 1916 CMPB #FSCBSM_NODE, (R11) ; better be just nodes 
13. 12 O7EC 1917 BNEQ RRNOD2 3 no, exit 
56 OC AB 7D O7EE 1918 MOVQ FSCB$Q_NODE(R11),R6 i; get descriptor of node spec 
58 FEFC CB oor a MOVAB -FSCBSR_BLN(R11),R11 ; restore FSCB 
O7F7 1921; | 
pre 1 § 3; Validate and append secondary node spec to node name element buffer. 
O7F7 1924 ° 
10 O7F7 1925 30S: BSBB PSEUDO_CHKFLD ; validate node spec syntax | 
31 10 O7F9 1926 BSBB APPEND_NODESPEC 3 append next secondary node spec | 
O7FB 1927 3; to node name element buffer 
FF8O §=6©31 O7FB 1928 BRw SECONDARY _NODE 3 examine next field 
O7FE 1929 | 
O7FE 1930; 
O7FE 1931 ; NOTE: We cannot return directly up to parse_string level because R9 was 
O7FE 1938 3 pushed onto the stack in check_node so remove return pc : 
oore I 2e7 5 at errnodS which will set the error code and return to parse_string 
O7FE 1936 . 
O7FE 1339 ERRNOD3: ; 
50 8EDO O7FE 193 POP RO 3 remove return PC 
0801 1938 ERRNOD2: ; 7 
FEAI 31 0801 1939 BRw ERRNOD 3; Branch aid 
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v04-000 CHECK_NODE, Check Node Specification goer =15 4 8:53:98 RMS ..SRCIJRMOXPFN.MAR; 1 . 
4 1941 ; 
o & 1306 ; This routine determines whether a field is a possible node spec string 
2 oh ; that may contain a logical node name and an access control string. 
4 1945 ; Inputs: 
4 1306 ; 
4 1947 ; <R6,R7> Descriptor of field 
04 1948 ; 
pate 1949 ; Outputs: 
04 1950 ; 
She 1951 ; RO-R2 Destroyed 
| 4 1328 ; 
04 19 
0804 1954 PSEUDO_CHKFLD: 
- ws F AS 0804 1955 SUBW #2,R6,R2 ; get string size w/o '::* 
oc 56 1 1 0808 1956 8 #FSCBS$V_ACS,R6, 108 : Branch if no ACS present 
67 52 : A 080C 195 LOCC «= WANN, R2, (R7) t on return <RO,R1> => ACS 
2c B1 peiy 1958 CMPW RO ,#NWASC_MAXACS 3; check size of ACS 
09 1A 0813 1959 BGTRU 208 : branch if too big 
52 50 A2 0815 1960 SUBW RO,R2 ; compute size of logical node name 
OF 52 B81 0818 1961 10S: CMPW R2 ,#FWASC_MAXLNDNAM ; check size of logical node name 
£1 1A 081B 1906 BGTRU ERRNOD3 ; branch if too big 
05 081D 196 RSB 3 exit 
O81E 1964 
OB1E 1965 ; 
O81E 1966 ; NOTE: We cannot return directly up to parse_string level because R9 was 
O81E 1967 ; pushed onto the stack in check_node so remove return pc, restore R9, 
O81E 1968 ; set the error code and exit 
OB1E 1969 ; 
O81E 1970 
50 8ED0 O81E 1971 20S: POPL RO ; remove return PC 
59 8ED0 BBS. 1376 POPL 9 ; restore ifb ptr - 
0824 197 RMSERR ACS ; declare error in access cntrl string 
FD11 = 31 bese Ore BRW PRS_ERROR 3; and get out 


| 
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CHECK_NODE, Check Node Specification “SEP-1984 16:22: RMS.SRCJRMOXPFN.MAR; 1 (26) 
C 1977; 
C 1328 ; This routine appends the string described by <R6,R7> to the node name element 
C€ 1979 ; buffer described by FWASQ_NODE, i.e., an intermediate or secondary node spec 
¢ 19 ? ; is appended to the node specs already in the node name element buffer. 
: : 13 ; Also, a descriptor pointing to the appended string is saved in FWA. 
£95 : 3; Inputs: 
C 1984; 
C 1985 ; <R6,R7> Descriptor of field 
O8eC 19 : ; 
0 : 1? 3 Outputs: 
5 Cc 19 § : RO-R5 are destroyed. 
082C 1990 ; 
O82C 1991 
8 C 1326 APPEND_NODESPEC: 
56 FFFFOOOO 8F CA 199 BICL2 #*XFFFFOO00,R6 ; clr flags in 2nd word of descriptor 
2F 6A 01 «EO 0833 199% BBS #FWASV_NOCOPY,(R10),10$ : if primary node spec was discarded 
8 1995 ; this pass, then discard this one too 
ef AA 96 0837 1996 INCB FWASB_SUBNODCNT (R10) ; increment secondary node spec counter 
50 F AA GA QO83A 1997 MOVZBL FWASB_ SUBNODCNT(R10),RO ; copy the counter 
07 50 »D1 O83E 1998 cMPL RO, #FQASC_MAXSUBNOD 3 
1A 0841 1999 BGTRU ERRNOD 3 secondary node specs 
28 00D8 CA 9E 0843 2000 MOVA FWASQ_NODE(R10) ,R2 3; get address of node descriptor 
5 62 82 C1 0848 2001 ADDL (R2) +, (R2),R3 3; compute address of next available 
Baer O06 ; byte of node name buffer 
51 0184 CA4O 7E 084 00 MOVAQ FWASQ_NODE1(R10)CROJ,R1 ; get address of next node spec desc 
81 28 DO 085 004 MOVL R6,(RT)+ 3; save descriptor of node spec 
DO 6085 005 MOVL R3,(R1) 3; being appended 
56 CO 0858 soos ADDL2 R6,-(R2) 3; adjust size in node name descriptor 
62 B61 0858 2007 CMPW (R2) , #FWASC_MAXNODLST ; make sure intermediate node spec 
0860 2008 ; string will fit in node name buffer 
9C OA + ¥¢ 009 BGTR ERRNOD3 ; branch on error . 
56 28 086 010 MOVC R6,(R7),(R3) 3 append next node spec string 
0866 2011 3 to node name element buffer 
05 0866 Hf} 10$ RSB 3 exit 
0867 201 


| 
branch if there are too many 
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v04-000 CHECK_NODE, Check Node Specification iets 93:53:98 LAMS SRCIRMOXPEN-MARs 1 ° (27) | 
67 13 3 | 
of 1 ; We have a file name 
7 7 : | 
67 18 
67 4 CHECK_NAME : 
By $8s8 
5 § ; Check to see if it is a quoted string 
67 : 
pee! 4 
867 025 ASSUME FWASC_MAXQUOTED GE FWASC_MAXNAME 
06 56 13—~«€1 ase? o ; BBC #FSCBSV_QUOTED,R6,10$ ; is it a quoted name string? 
51 FF 8F QA oRee 029 MOVZBL #FWASC_MAXQUOTED,R1 : for quoted strings use the max quoted size 
03. 11 peer 839 BRB 20$ 3 
51 27 QA 0871 O34 10$: MOVZBL #FWASC_MAXNAME ,R1 3 check non-quoted Length 
50. OD 9A 0874 2035 205: MOVZBL #FWASV_NAME RO 3 set code for check_field 
55 0170 CA 7E 0877 2034 OVAQ FWASQ_NAME(R10),R5 : output descriptor 
0506 30 O87C 2035 BSBW HECK LD > copy string 
08 6A 04 €1 O87F 036 BBC #FWASU_FNA_PASS,(R10),50$; branch if not FNA pass 
04 6A OD €1 0883 203 BBC #FWASV-NAME , (R10) ,50$ ; branch if name not seen 
0887 2038 SSB #FWASV_EXP_NAME,(R10) ; set explicit name flag 
12 50 €9 0888 2039 50S: BLBC RO,90$ : if we didn’t use this string, go on 
06 56 13—=CO#€E? 088 040 BBC #FSCBSV_QUOTED,R6,90$ ; if string not quoted, continue 
089 943 : : 
089 043 ; We just used a quoted string for a name string - it now resides in 
089 044 ; FWASQ_NAME, quotes and all. 
089 045 ; 
089 046 
089 047 SSB #FWASV_QUOTED, (R10) : flag quoted name in use 
page 048 
089 049 ; 
0896 2050 ; We now will flag that we've seen a type since having a quoted 
0896 2051 ; string “inplies’ a type (that's why PE and not EXP_TYPE is set). 
0896 b2¢ : This keeps the type from showing up later by defaulting and relating 
0896 2053 ; and such. Unfortunately, we can't use the current status of the 
0896 2054 ; FWASV_TYPE bit to tell us whether we've already seen a type, as at the 
0896 2055 ; end of the FNA scan EXP_TYPE if set is used to set TYPE. EXP_TYPE is 
0896 B29 3 set even if there was only a. with no ‘‘real”’ type characters (to 
0896 2057 ; allow null types of course, otherwise they would fill in from the 
Baee B26 3; defaults...). So we have to check at this point for the Length 
96 59 ; of the FWASG_TYPE descriptor. 
0896 2060 ; 
)896 2061 
44 066 SSB #FWASV_TYPE, (R10) ; 
0178 CA 05 089A 206 TSTL FWASQ_TYPE(R10) ; is there any type? 
0 12 3 bee BNEQ FNMERR ; if neq yes, oops, error 
Bea Ose 90$: RMSSUC 
05 A 6 RSB 
AS rt: 
AS § : 
A4 0 ; return file name error here quick and easy 
A4 2071 ; 
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v04-000 PARSE_DIR, Parse a Directory String ~$Fb 1 38 8:53:88 RMS ..SRCJRMOXPFN.MAR; 1 ’ (28) v( 
“4 8 -SBTTL PARSE_DIR, Parse a Directory String 
ry! » ; We have a left bracket (square or angle) indicating a directory spec. 
A7 § : It may be of the forp abr) format, Cdirectory-name] format, 
A? 20835 ; Ldirectory-name.directory-name2...] format, or C.directory-name...J 
gar 0 ¢ 3 format. 
sae H ; Determine the format and copy the various parts to the directory buffers. 
BA7 2088 * 
a 44 ASSUME FWASC_MAXDIRLEN EQ 255 : for overflow checking 
8 A? 2091 PARSE_DIR: 
18 €0 OQ8A7 O36 BBS #FSCBSV_CONCEAL,- 3; cant be concealed directory 
31 24 AB O8A9 209 FSCBSQ_BIRECTORY(R11),ERRDIR1 ; type 
08 O3 AB 91 peat 094 CMPB FSCB$B DIRS(R11) ,#FSCBSC_MAXDIR 3; are thier to many directories? 
28 1A 0880 2095 BGTR ERRDIRT : yes, bad! 
28 BB 02) B81 Ss«OBB2 «= 2096 ADDB #2,aFSCB$SQ_DIRECTORY+4(R11),- ; determine whether to use ‘J' 
OA AA 0886 2097 FWASB_DIRTERM(R10) ; or '>* as teminator, taking 
0888 2098 : advantage of the fact that 
tot 099 3 the ASCII code for each of 
088 100 3; the right brackets is 2 more 
0888 2101 ; than the code for the 
0888 19 3; correspoinding left bracket 
0888 210 
0888 2104 ; 
0888 2105; If this is the related file pass and we are doing an output file parse 
08B8 2106; then if the directory in the current expanded filename is a 
0888 2107 ; wildcard - replace it with the first wild field in the directory 
0888 2108 ; of the related filename (i.e. sticky directories) 
08GB 5110 
6A O03 €1 0888 2111 BBC #FWASV_RLF_PASS,(R10),.- ; If this isn't a related file pass 
12 088B vB 10$ 3; don't make directories sticky 
68 3D €1 O8BC 211 BBC #FABSV_OFP+FOP,(R8),- ; If this isn't output file parse 
OE O8BF 2114 10$ ; don't make directories sticky 
9529 30 ty 115 BSBW STICKY_DIR ; 9° check for sticky directories 
17 50 =6€9 «6(08C 116 BLBC RC,ERRBIR1 3 if any errors, 90 report them 
OA AA 53 91 O8C6 2117 CMPB R3,FWASB_DIRTERM(R10) ; have we passed the whole directory ? 
65 12 OB8CA 2118 BNEQU SKPDIR 3; no = go eat the rest 
60 11 pace 133 BRB DIRXIT1 ; only use sticky fields 
5F 6A OE 50 Ht 13 10$ BBS #FWASV_DIR,(R10) ,SKPDIR ; Branch if directory already seen 
56 0004 CB 7D O08D2 21 : MOVQ  FSCBSQ~DIRECTORY1(R11),R6; get the first s 
05 56 16 €0 08D 1 BBS #FSCBS0_GRPMBR,R6,- 
Bape 124 GRPMBR 3 o7 norma 
59 «(11 DB 2125 BRB NAMED_DIR 
08DD 1 § 
DD 2127 ERRDIR1: 
OOAB ‘31 4) \$8 BRw ERRDIR ; Error in directory format 


{ t pes | 
6, 3; is it Lerpup.sem er] format? 
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v04-000 ARSE_DIR, Parse a Directory String g7$F pa} 984 98: $3: 8 Yams SRCIRMO OXPF N.MAR;1 ’ (29) v( 
E 131; 
: } § ; We have a ‘Cgroup,member]' directory format 
E 134 
E 135 GRPMBR: 
EO 5137 
: ! 8 ; check to make sure they are correct specs. 
E 140 ; 1. 3 characters or less 
5 ; 146 : 2. less then or equal to 377 octal 
EO 2143 © 
03 56 #B1 OBE 144 CMPW R6,43 3; 3 characters? 
05 12 OBE 145 BNEQ 10§ 3 no need to check_unless 3 
33 67 91 OBE 146 CMPB (R7) ,#*A/3/ : is first char > 3? 
F3 341A th 147 BGTRU ERRDIR1 : if so it's an error 
50 3 9A EA 2148 10S: MOVZBL #FWASV_DIR1,RO 
51 9A OBED 2149 MOVZBL #3,R1 ~ 
55 0130 CA 7E O8FO 2150 OVAQ FWA$Q =DIRICRIO), R5 
048D 30 O8FS 2151 SBW CHECK_FIELD 
O8F8 13 
O8F8 2153; 
O8F8 2154 ; First part ok - check second part. 
O8F8 2155 ; 
O8F8 2156 
56 OOCC CB 7D O8F8 157 MOVQ FSCB$Q_DIRECTORY2(R11) ,R6 
03 56 =#B1 O8FD 2158 CMPW R6,43 : 3 characters? 
05 12 0900 2159 BNEQ 20$ ; MO Need to check unless 3 
33 67 91 bans 160 CMPB (R7) ,#*A/3/ ; is first char > 3? 
D6 «6©1A «(090 161 BGTRU ERRDIRT : if so it’s an error 
50 21 QA 0907 166 20$: MOVZBL #FWASV_DIR2,RO 
51. 03 QA O90A 216 MOVZBL #3,R1 
55 0138 cA 43 090D 2164 OVA FWASQ_DiR2(R10) ,R5S 
0470 3 Bayg 193 BSBW CHECK_FIELD 
0915 2167 SSB #FWASV_GRPMBR, (R10) : flag group member format in fwa 
0919 2168 SSB #FSCBSV_GRPMBR,- : and descriptor 
0919 2169 WA$SQ_DIR1(R105 
0130 CA 81 O9IF 2170 ADDB3 FWA$Q-DIR1(R10),- § “Ore fo the directory length of the 
0138 CA 0923 2171 WASQ_DIR2(R10) ,- : format directory by adding the 
2E AA 4 $ 176 FWASB “DIRLEN(R10) 3 on Hol of the two separate parts 
Os 1F 0998 3174 BCS —_—EERRDIRI Saf Geartice eho bes 
39 4 173 SSB #FWASV_DIR_LVLS, (R10) ; treat UIC dirs as {ee 2 levels 
O92E 177 DIRXIT1: 
00C6 «6931 O92E 2178 BRW DIRXIT : ALL set 
gH ale 
0931 181 : We must skip over directory spec. 
ie 
4 ! : : ASSUME FWAS$V_DUPOK EQ 0 
FA 6A €8 0931 1 § SKPDIR: BLBS (R10) ,DIRXIT1 3; branch if duplicates allowed 
55 11 0934 21 BRB ERRDIR 
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v04-000 PARSE_DIR, Parse a Directory String gree bn O84 13:33:58 RMS .SRCJRMOXPFN.MAR; 1 (30) 
9 $ 183 $ 
9 190 ; We have a normal format Mf eae name. 
936 2191 ; Check for ‘CJ' or ‘'C.name)’ or ‘l-.name)' 
936 13 3 indicating explicit default directory. 
0936 2193 ; 
936 2194 
936 2195 NAMED_DIR: 
54 01 CE 0936 136 MNEGL #1,R4 ; set up for normal case 
0456 17 EO 0939 219 BBS #§ SCBSV_MINUS R6,10$ ; relative if leading minus 
0c 56 14 EF} 0930 2198 BBC #F SCBSV-NULL ,R6, 30 : branch if not null 
00C9 0 0941 2199 10$: BSBW DEFAULT DIR 3 get default directory 
01 50 Be ok 00 BLBS RO,20$ ; ok, continue 
094g 5503 se 
1D EF 0948 8 208: EXTZV #FWASV_DIR_LVLS,- 3; get the # of directory levels 
54 6A 03 094A 04 #FWASS_DIR_LVLS,(R10) ,R4 ; could be <>0 from default_dir 
5C D4 0940 05 308: CLRL AP ; AP = dirs used from FSCB 
094F 06 
O94F 07 ; 
094F 08 ; Subtract any minus signs from the directory levels 
Doce 3510 | 
46 56 17 €1 oof iH LOOP: BBC #FSCBSV_MINUS,R6,COPY_DIR ; are there any minus signs? 
095 15 3 
$333 sié 3; The Length of the directory string (R6) is the number of minus 
bae8 1? 3; signs present. NOTE: You cannot go past MFD but can go past UFD 
0953 2817 
51 56 3€ 0953 2218 MOVZWL R6,R1 3: get number of ‘-'s 
54 D5 0956 $533 5$: TSTL RG 3 Can we subtract a directory 
1A 14 0958 2220 BGTR 10$ 3; ok, if > 
2F 3619 «O95A 2221 BLSS ERRDIR 3; can't go negative 
095C $56 
095C 2223 ; 
095C 2224 ; R4 = 0, we are at the top, check for MFD 
O98¢ 9996 
06 0130 CA Bi 095C 56 CMPW FWASQ_DIR1(R10) #6 ; MFD is six characters 
11. 12 0961 2228 BNEQ 10$ : if not right then ok 
50 0134 CA 00 0963 9 MOVL FWASQ_DIR1+#4(R10) ,RO ; get address of name 
91° AF 80 D1 0968 0 CMPL (RO)+,B*MFD_ASCII 3 check if it's MFD 
06 12 096C 31 BNEQ 10$ 3 neq, then it can't be 
91° AF $0 ? 385 § CMP (RO) ,B*MFD_ASCII 3; last part 
1 3 09 BEQL_  ERRDIR : can't do that 
50 54 20 C1 0974 4 108: ADDL3 #FWASV_DIR1,R4,R0 3 get the flag offset 
978 5 CSB RO, (R10) ; clear the flag 
50 0130 CAG 7E 097¢ 6 MOVAQ  FWA$Q_DIR1(R10)CR4],RO : get addr of descriptor 
60 D4 0982 7 CLRL (RO) : and clear it 
54 07 0984 3 DECL R4 3; remove this directory 
cD 51 «=6=FS5) «(0986 3 SOBGTR R1,5$ ; are there any more? 
34 =o 44 9 BRB GET_NEXT 3 no, get next directory 
988 4g : : 
988 43 ; Handle directory error 
988 44 ; 
0988 45 
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9 46 ERRDIR: RMSERR DIR 3; show error 
05 358 29 RSB ; and get out 
991 48 | 
991 49 ; 
44 29 ; ASCII name for the MFD and some trailing blanks 
0981 3 MFD_ASCII: 
20 20 30 30 30 30 30 30 0991 5 -ASCII “000000 * 
0999 54 
0999 a2 
0999 56 ; Set up directory for check_field 
0999 57; 
0999 58 
0999 59 COPY_DIR: 
07 54 »d1 0999 60 CMPL R4,#FWASC_MAXSUBDIR ; check to see if we are ok 
ED 13° 099C 61 BEQL ERRDIR ; Opps 
1D 56 14 €0 099 $06 BBS #FSCBSV_NULL ,R6,GET_NEXT ; null directory spec? 
54 D6 O9A $e INCL RS 3; ready to process it 
50 54 20 C1 O9A4 2264 ADDL3 #FWASV_DIR1,R4,R0 ; find the flag offset 
51 27) =—9A =(O9AB $502 MOVZBL #FWASC_MAXNAME ,R1 ; length 
55 0130 ca44 =7E O9AB 2266 MOVAQ  FWA$Q_DIR1(R105CR4I,R5 : descriptor for this directory 
0301 30 0981 5ser BSBW CHECK _FI 3; copy the directory 
2—E AA «56 «680 0 «(0984 «2268 ADDB2 R6,FWASB_DIRLEN(R10) : accumulate directory spec length 
-1F 0998 2269 BCS RRDIR : if overflow the byte 
2E AA 96 O9BA ssi INCB FWA$B_DIRLEN(R10) 3 count the terminator too 
1F QO9BD 2271 BCS ERRDIR : if overflow the byte 
O9BF $506 
O9BF 2273 ; = 
O9BF 2274 ; Set up for next directory field 
O9BF 2275 ; 
O9BF 2276 
O9BF 2277 GET_NEXT: 
18 56 10 €1 O9BF 2278 BBC #FSCBSV_ELIPS,R6,10$ 3; was there an elips? 
54 05 09C3 2279 TSTL R4 : < 0 if past UFD 
02 18 O9C5 2280 BGEQ 5$ : ok, skip . 
32.0 «610 09C7 2281 BSBB INSERT_MFD ; insert mfd in directories 
50 0130 CA44 7E 09C9 $oe¢ 5$: MOVAQ FWA$Q_BIR1(R10)CR4],R0 3 get addr of descriptor 
O9CF 228 SSB #FSCBSV_ELIPS, (RO) : set flag in high word 
0903 2284 SSB #FWASV_QILDCARD, (R10) ; set over all wild card 
09D7 2285 SSB #FWASV_WILD_DIR, (R10) ; set directory wild card 
5C D6 O9DB 2286 10$: INCL AP ; inc. use count 
03 AB 5C 91 O9vD 2287 CMPB AP ,FSCBSB_DIRS(R11) ; used them all? 
09 13 O9E1 2288 BEQL : yes, finish up 
56 00C4 cpt 7D 4 $86 MOVQ FSCB$Q_DIRECTORY1(R11)CAP],R6 ; get next directory 
FF63 31 09E9 2290 BRW LOOP : go process it | 
O9EC 2291 
O9EC 344 ee : , : 
O9EC 93 ; Directory parse completed - if directory specification contains no 
3445 ae 3; levels (as a result of minus signs), then insert 000000 as directory name 
BEC 2296 | 
9EC 97 20$: TSTL RG 3; < 0 if past UFD 
9E 98 BGEQ ; Ok, Ski 
OF 99 BSBB INSERT_MFD 3; insert mfd 
oF 00 30$: INSV R4,#FWASV_DIR_LVLS,=- 3 stuff the final result | 
O9F 01 #FWASS_DIR_LVCS, (R10) 
oF 302 
| 
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Directory processed ok, go process next field 


Mw 


DIRXIT: RMSSUC 
RSB 


: Insert the name '000000"' into the directory spec. 


; flag MFD was inserted 
; insert Length of ° 
; NO Do not disturb flags 
; move the string ‘000000’ 


; say just one level 
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AOD 4; 
BAO 5 ; We have a directory spec of the form C) or C.namej, or C-.name] 
QAQD § ; implying a sub-directory of the current default Hh vad 
OAOD ; It is valid soly if default directory is not of the Cgroup,member] format. 
DAdD 3 ; Call PARSE_STRING recursively to apply default directory. 
AOD o 3 
QAOD 1 
AOD ; DEFAULT_DIR: 
AQD 
QA0D 4; 
AO0D 3 ; If this is a network filespec, then the directory string should be sent 
AOD g 3; to the remote FAL as entered, that is, without + ge sg hyphens or a 
QAOD 33 : null root directory. So if a node name is present, say UFD seen and 
QAOD 38 ; make the corresponding FWA descriptor point to a null root directory 
OAOD 2339 ; string or one consisting of one or more hyphens. 
Dad 33a 
13 6A 19 4€1 OAOD 348 BBC #FWASV_NODE,(R10),10$  ; branch if node not seen 
0130 CA 56 DO OAI1 sae MOVL R6,FWASQ_DIRI(R105 ; store string size in DIR1 descriptor 
67. 56 28 QAI6 2344 MOVC R6,(R7),= 3 copy the string 
0134 DA 0A19 Seep @FWASQ DIR1+4(R10) 
OAIC 2346 CSB #FSCBSV_MINUS ,R6 ; clear minus bit in mask to avoid 
OA20 2347 ; having it resolved in this routine 
54 6A 20 €E3 OQA20 2348 BBCS #FWASV_DIR1,(R10),20$  ; say UFD seen and branch 
OA24 2349 
OA24 2350 ; 
OA24 See) 3; And its context (logname flag and directory terminator). 
dase 5385 ° 
OOFC 8F BB vA24 $327 10S: PUSHR #*M<R2,R3,R4,R5,R6,R7> =; Save current registers 
7E 06 AA 90 0A28 2355 MOVB  FWAS$B_LNFLGS(R16),-(SP) ; 
7E OA 90 OAct 2356 MOVB = FWASBIDIRTERM(R105 ,-(SP); 
06 94 OASG 2357 CLRB FWASB_LNFLGS(R10) 3 say no logical name seen 
0A33 2358 CSB #FWAST_DIR, (R10) : clear directory seen flag 
OA37 2359 
OA37 2360 ; 
0A37 2361 ; Call PARSE_DIR recursively 
0A37 366 3 
OA37 236 
BAe! 30% ASSUME FSCBSB_FLDFLAGS EQ 0 
5B 0104 CB -9E OA37 2366 MOVAB FSCBSK_BLN(R11),R11 3 use Seger ery FSCB 
68 94 pA C a4 CLRB 1) ; clear flags ‘ 
57 Q0000000°9F 9E OA 3 68 OVA @#P1O$GT_DDSTRING,R7 ; make descriptor of default directory 
56 87 QA OA4 369 MOVZBL (R7)+,R6 ; string (stored as counted string) 
56 be 0A48 $59 PUSHL R 3; save input penagh 
F5B3° 30 OA4A 71 BSBW RMSSCAN_STRING ; parse default directory 
56 BEDO OA4D us POPL R6 ; restore roput Length 
50 D4& OASO 7 CLRL RO 3; assume failure 
56 04 AB. Bi OAS 74 CMPW FSCBSQ_FILESPEC(R11),R6 ; was the full spec parsed ok 
of 12 OAS 75 BNEQ ; no, exit : 
6B 0 91 OAS 7 CMPB #FSCBSM_DIRECTORY,(R11) ; should only have a directory 
07 12 OASB 7 RNEQ : incorrect default string if so. 
566 Ap 7D OASD 2378 MOV FSCB$Q_DIRECTORY(R11) ,R6 > get string 
FE43 = 30 Ag! 43 BSBW = PARSE_DIR ; parse it 


-—— 
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A64 . 2 “, 
A64 ¢ ; Restore previous context. 
aed S8Bz | 
5B FEFC CB 9 A64 5 15$: MOVAB =-FSCBSK_BLN(R11),R11 3; restore old FSCB 
OA AA 8E 90 0A69 : MOVB (SP)+,FQA$B_DIRTERM(R10); 
06 AA BE 90 agp MOVB (SP)+,FWASB_LNFLGS(R10) ; : 
00F¢ 8F BA OA71 8 POPR #*M<R3,R2,RZ,R5,R6,R7> : restore registers 
15 50 €9 OQA75 89 BLBC RO,90$ 3; branch on failure 
Bh 330 
OAy 3 3; If done with directory spec, then exit immediately else check for 
A7 95 ; compatible directory formats. 
OA7 94; 
pare 95 
06 56 i7 EO OA7 38 20$: BBS #FSCBSV_MINUS ,R6,30$ 3 TY leading minus, 
03 AB 01 «= o91s«OA7s 239 CMPB so #1, FSCBSB_DIRS(R11) : or if not done 
04 #13 OA80 4 BEQL 40$ 3; then handle relative filespec 
OA8 99 
OA8 400 ; : : ; 
0A8 401 ; Do not allow concatenation of uic format directories. 
OA8 toe : 
OA8 40 
04 6A 18 0A8 404 30$: BBS #FWASV_GRPMBR,(R10),50$ ; format ok? 
50 01 9A OAB6 2405 40S: MOVZBL #1,RO 3 success 
OA89 2406 RSB 
OABA 2407 
FEFE 31 QA8A 2408 50S: BRW ERRDIR 3; no, get error then exit 
QA8D 2409 
OA8D 2410 ; 
OA8D 2411 ; The default directory — is messed . This should 
OA8D tig 3 never happen, but it’s not too serious. Iry to continue. 
OA8D 413 ; 
OA8D 2414 
OA8D seiz 
416 


90$: RMSERR BUG_DDI ; return error 
05 OA92 RSB 
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-SBTTL TRANSLATE, Translate Logical Name 


as 


Logical name translation ... 


This subroutine attempts to translate the string described by the last 
Sogn eee abr ing. If this is NOT a search List logical name the current 
. RO, Ww e 


Ag l be the ‘fake’ SLB in the fwa itself. If it is a known search 
A9 List logical name use the index (which could have been updated) in the 

3 appropiate SLB. 

A9 If we are successful, check for an ‘escape’ equivalence string indicating a 
Ag precese-persenent file in which case the escape string is stored in the 

ong WA and the parse is terminated. 

OA9 If not an escape string, the original string is returned to the user 

BA? and a success return is made. 

0A93 If not an escape string or underline, the equivalence string replaces the 
0A93 parse input string and a branch is made to PARSE_STRING to merge in the 

OA9 ; filename elements of the equivalence ——s: If The translate was 

et: ; unsuccessful, a failure return is made to the caller with the equivalence 


; ate ing (identical to the input name minus the initial underscore if any) 
; described by <R6,R7>. 


This returns only if the string was not used either the translation failed 
; or we did not want to use it. Errors are returned one level up. If the 
; Mame was translated and used we branch to pecer.string and act Like we are 
continuing to parse the same string (same FSCB). 
If it returns: 

If RO = 1 then <R6,R7> => orginal input string (Concealed device) 


If RO = 0 then <R6,R7> => orginal input pkg, without leading 
underscore, if any (No translation) 


Bete Se Ge Se Ge Ge Se Ge Ge Ge Be Se Ge Ge Ge Se Be Ge Sete Ge Ge Ge Ge Se Ss Se Se Se Ge Se Se Ge Be 


02000000 O0A9 
56 45 44 SF 45 4C 49 46 24 4D 4E 4C OAD 
0000000C _ 


G  LNMSM CASE BLIND ; Caseless LNM translation | 
Il ALNASEILE DEV ; RMS logical table name string 


: Try to translate logical name 


TRANSLATE: 
POPL 
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AP 3; remove (save) return PC, we are now at the PARSE STRING 
; level, so PRS_EXIT and PRS_ERROR are legal branches 


CoN 


QAA 
5C 8EDO QAA 
_ 
AA6 


; Search the SLBs (if wr + to see if one matches the level of recursion 
; we are at, if so use the index from it. If non found use the fake one. 
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D MOVL FWASL_SLB_PTR(R10) ,R6 3; get the current slb 

1 BEQL 10$ 3; Branch if none 

i) MOVL R6,RO0 3; save for end test 


: Check to see if we are at a level where search list are present, if so 
; then use the SLB for this level. If not continue if with the fake SLB. 


CMPB ise LEVEL (R6) ,FWASB_LEVEL(R10); ee the level 


BEQL 3; if same then use it 
BGTR : if past this level stop 
MOVL $ PBSL_FLINK(R6) .R6 ; get the next one 

CMPL RO,R6 ; at the end 

BNEQ 5$ 3 no, continue 


MOVAL FWAST_SLB(R10),R6 use the fake one 


to see if we have done the max number of translations 


ADDB3 a - SLB$B_LEVEL(R6),- ; bump the count and move it 
FWASB LEVEL (R10) into the fwa 

CMPB FWASB-LEVEL(R10) , ALNMSC_ MAXDEPTH 3 max trans it 10 

BGTR ERRLNE 3 were ok, continue 


; R6 - SLB with index to translate 


BBC #LNMSV_TERMINAL , SLBSL -ATTR(R6) ,~; is this name a terminal? 
10$ ; if not cont inue 
BRW NOTRAN ; else don't bother to translate 


: Create a item List to pass to $trninm, 


MOVAL SLBSL_INDEX(R6),- ; get the index buffer addr 
WAST-1TM_INDEX#4(R10) 

MOVAL SLs, “ATTR(R6) , = 3 get the attr buffer addr 
FWAST_ITM “ATTR#4 (R10) 

ASSUME FWASL_XLTBUFF2 €0 FWASL_XLTBUFF1+4 


CVTBL FWASB_BUFFLG(R10) ,RO 


MCOMB RO FWASB rut e G(R 10) 

MOVL FWASL_X (R10)CROI,R5 

MOVL RS aut ai  STRINGSE CRIOD 

MOVAL set A. INDEX (R6) ,- 
T~1TM“MAX_INDEX#4 (R10) 

PUSHAB 


TAN NA 
PUSHL #TABNAM_SIZE 
MOVL SP,R1 


which buffer should we use? 
0 => buff2; -1 => buffl 
switch buffers for next time 
get output buffer addr 


get the max_index buffer addr 


make descriptor of tablename 


STSTPT XLATLOG 
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RMOXPFN 
v04-000 


F 
F g TRNLNM: STRNLNA_S = 
F 4 TABNAM=(R1),- 
F 5 ATTR=W*LNM_A 
F : LOGNAM=F WASQ_LOG AN(R IO), 
F ITMLST=FWAST_ITMLST(R10),=- 
f § ACMODE =F WASB_XL TMODE (R105 
SE 08 0 7 hs ADDL2 #8,SP ; discard tablename descriptor 
54 we $0 2 . ae og FWASW_XLTSIZ(R10) ,R4 3 <R4,R5> => translation if any 
orc 6F 30 op 2 348 CMPW =sRO. #SS$_NOLOGNAM 
= 44 BEQL NOLOGNAR 
0839 328 
9 203 ; Either the system service failed or the maximum number of translations 
0839 2548 ; has been exceeded or the logical name translation yielded an escape 
0839 2549 ; string that was either the wrong length, of the wrong mode, or not 
0839 2550 ; the only field. 
S39 326 FRRLNE: RMSERR LNE ; show error 
FYFC 31 OB3SE 2554 BRW PRS_ERROR 3 and get out 
dec] 5856 
poet $39 : Something worked. Lets see if it really did anything usefull 
0B41 2559 ° 
10 ae 3 feel 309 NORMAL : bg es MAX_INDEX(R6) ; was there really a translation 
z no 
14 A6 oA EO 0B46 266 BBS #LNMSV_EXISTS,SLBSL_ATTR(R6),- ; was there a translation for 
4 OB4A 256 HAVEONE 3 this index? 
OC A6 06 OB4B 2564 INCL SLBSL_INDEX(R6) : bump index 
OC A6 D1 pase 565 CMPL SLBSL_INDEX(R6) ,- ; have we gone past the max 
10 A6 51 2566 SLBSL_MAX_INDEX(R6) : index for this name? 
BA 15 0853 2567 BLEQ TRNLNA 3 No, try again, NOTE: the item 
089) 568 : Uist is still valid 
0838 $890 ; 
0855 2571 : We did not get a translation of any kind, remove the current SLB (if any) 
0855 278 3 and continue on 
33 a? NOLOGNAM: 
OC A6 4 A CLRL SLBSL_INDEX(R6) ; clear the index 
0B A6 «697 «20858 «257 DECB SLB$B_LEVEL(R6) 3 and lower the level (in fwa) 
OA A6 00 €1 58 278 BBC #SLB$9_REALSLB,SLB$B_FLAGS(R6),-; do we realy need to deallocate 
1¢ 5F rT 20$ 
ue 
: Deallocate SLB 
ae 
54 66 OF 6 585 REMQUE (R6),R4& : remove the SLB from the List 
08 1 6 5 § BvC 10$ 3; last one? 
50 OOA8 CA 0D 6 5 MOVL yen SLBH_PTR(R10) ,RO ; get SLBH address - 
OC AO D4 6A 2588 CLRL SLBHS$C_SLB~ QUE (RO) ; clear the pointer to the List 
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; save FSCB 
restore impure address 


82 10$: PUSHL 3 
0 MOVL 3 
. deallocate the space 


R11 
FWASL FRSA CE TED ofr 
RMSRETBLK 


restore FSC 


R1 
20$: BRwW NOTRAN ; return failure 


; We translated a logical name. Check to see if the name we translated was 
3 a search List. 


HAVEONE : 
TSTL 


SLBSL_MAX_INDEX(R6) ; was this a search List 
BLEQ 20$ 


- no 


: We have incountered a search List logical name, it could be one we already 
; know about or a new one 


SSB #FWASV_SLPRESENT, (R10) ; flag that we have one 
BBS | el estate naataa inseam Tie did we already know that? 


Allocate a SLB place it in the queue and copy the logical name form 
the fake SLB to it, R6 will point to the new SLB 


BSBW ALLOCATE_SLB 3; get an SLB 
BLBC RO,60$ : 1f there is one 


: Check to see if we got an escape string indicating a process permanent file. 


20$: CMPB (R5) ,#ESCAPE ; do we have a PPF? 
BEQL PPERMF ILE 3: yes, process it 


; If the equivetence string has a concealed device then ignore the 
3; translation and preserve the logical name as the device name. 


308: BBS #LNMSV_CONCEALED,SLBSL_ATTR(R6),-; concealed device? 
PARSE _CONCEAL 


: Parse the equivalence string as the filename string. 


MOVQ = R4, RE 
BSBW  UPCASE_COMPRESS 


ABC #FWASV_FNA PASS, (R10) ,50$ 
BICB2 #FWASM~DUPOK, (R10) 


: get into right registers 

3; perform upcasing and string 
: compression in place 

; leave dupok if not fna pass 
:; logical names must provide 
: no duplicate fields 


ec ec CL CC CET TN 


v 
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RANSLATE, Transtate Logical Name SEP=1 RMS .SRCJRMOXPFN.MAR; 1 
F826 31 GBAD ge4? 50$: BRW PARSE_STRING 3; continue processing 
F98D 31 OBAD 2648 60S: BRW PRS_ERROR ; quit if no room 
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51 FF 8F 
55 O00E0 
04 6A 04 
F958 

FFSA 


F912 


PXARAEAAAAAAAAAAAAAO AAAS AOAOO AOA O OO OOOO 
C909 08 NINN NNN NNSA AAAAAAAAA MUI 
NR —OOOWNAU EWR 0 OO NOUE WR O OONOUES WAN)" 


EXPAND FILENAME STRING 
TRANSLATE, Translate Logical Name 


16-SEP-1984 00:43: AX/VMS Macro V04-00 P 9 
g SEP 1382 90:53:98 RMS .SRCJRMOXPFN.MAR; 1 = (33) 
Poermfile ... 


: The equivalence string starts with an escape. 
; It looks Like we have a process permanent file. 


Check that the equivalence string has at least 4 bytes. 
; Don't use it if it is an RLFi string. 


PPERMF ILE: 
BBS #FWASV_RLF_PASS, (R10) ,30$ :; ignore if processing RLFi 
CMPL R4 #4 ; iS escape string 4 bytes long? 
BLSSU 20 3 no - uninterpretable 
MOVL (R5) ,FWASL_ESCSTRING(R10) ; store the escape string 


: Use CHECK_FIELD to copy the process permanent logical name 
3; to the device name field. 


FWASQ_LOGNAM(R10) ,R6 ; get descriptor 

MOVZBL M#FWASV_DEVICE,RO 

MOVZBL #FWASS-DEVICEBUF ,R1 

MOVAQ FWA$Q_DEVICE(R105 ,R5 

BSBW CHECK FIELD 

BB #FWASO_FNA_PASS,(R10),10$ ; branch if not processing FNA 

SSB #FWASV_EXP_DEV, (R19) 3; set explicit device flag. 
10$: BRW PRS_EXIT1 ; all done, exit parse_string 


20$: BRW ERRLNE : error in translation 
30$: BRW PRS_EXIT ; all done, ignore this string 


vi 
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BE 684 ; 
Eg 26 3 ; No translation occurred | 
BES S68? | | 
50 04 OBE 688 NOTRAN: GLARE 3; show no translation 
BE ? iza3 strip leading underscore if there is one | 
BES 9 333 mova wa$q Lognaa(r'10) .6 3 restore input string 
ES 2691 33; cmpb (r7) ,R*a/_/ ; Leading underscore? 
BES $36 3338 bneq extran 3; no, exit 
See eer 333 gece r 3; cut it off 
tee nc r P 
OA 11 E4 $3? BRB EXTRAN 3 exit 
ue 
Bre 238 ; The translation is not to be used (Concealed device/directory) 
OBEe 5700 
OBE 70 DONTUSE: 
50 01 QA QBE6 27 MOVZBL #1,R0 ; translation valid, but not to be used 
009C CA 92 OBE9 270 MCOMB = FWASB_BUFFLG(R10),- : flip the buffer flag back 
009C CA td pee FWASB_BUFFLG(R10) 
0000 CA 7D OBFO 2706 EXTRAN: MOVQ FWASQ_LOGNAM(R10) ,R6 ; restore My st logical name 
6c 3617 pers ALA JMP (AP) : effective RSB to caller 
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v04-000 PARSE_CONCEAL, Parse Concealed Logical N ~$Fb= 1383 o:53:98 YAMS SRCIRMOXPEN-MARs 1 . (3) 
are 719 ~SBTTL PARSE_CONCEAL, Parse Concealed Logical Name 
BF? ar 3 
ore AF 3 PARSE_CONCEAL 
Bre ar 3 Parse the concealed device string and rooted directory string, if any 
BF7 a5 
BF? 2718 PARSE_CONCEAL: 
45 6A F 3 BF7 2719 BBS #FWASV_DEVICE, (R10) ,80$ ; Branch if device already seen 
41 6A 9 3 BFB 2720 BBSS #FWASV_CONCEAL_DEV, (R10) ,80€ ; have we seen one before? 
56 4 D pare 721 MOVQ 4 3; save input string 
0110 30 Oe 7 g SBW - UPCASE_COMPRESS > copy and compress string 
5B 0104 CB 9E OCO 7? MOVAB FSCBSK_BLN(R11),R11 3; use temporary FSC 
56 3 che 724 PUSHL R6 3; save size 
F3F1*° 30 OCOC 2725 BSBW RMSSCAN_STRING 3 parse the parts 
56 BEDO OCOF 2726 POPL 3 restore input Length 
56 04 AB Bi OC12 2727 CMPW FSCBS$Q_FILESPEC(R11) ,R6 ; was the full spec parsed ok 
2A 12 oci8 4 g BNEQ 90$ 3; no, exit 
0C18 2730 ASSUME FSCBSB_FLDFLAGS EQ 0 
0C18 2731 
0C18 27 § 3 ‘ : 
0C18 2733 ; Make sure the concealed device name is of the form “‘DEVICE:"’ or 
OCs Pee ; ‘DEVICE: CROOTED-DIR.J"* -- nothing more, nothing less. 
0C18 2736 ° 
06 8B O0C18 2737 BICB3 #<FSCBSM_DEVICE!FSCBSM_ROOT>,- ; check for illegal fields 
50 68 OCIA 2738 (R11),R0 5 
24 12 OCIC 2739 BNEQ 90$ ; br -= caught one! 
20 68 O01 €1 Ocge oy BBC #FSCBSV_DEVICE, (R11) ,90$ ; make sure it includes dev nam 
OC22 2742 ; 
Oc¢2 748 3; Copy the device descriptor and directory descriptor if any into the fwa 
$¢5 745 
OC22 2746 ASSUME FSCB$Q_ROOT8 EQ FSCB$Q_ROOT1+56 
He ee ASSUME FWASQ_CDIRS EQ FWASQ_CDIR1+56 
14 AB O01 A3 0C2 749 SUBW3 = #1,FSCB$Q_DEVICE(R11),- 3 get device length and 
OOE8 CA 0C26 2750 FWASQ_CONTEAL_DEV(R105 > remove trailing ':' 
O0E8 CA 28 OC29 2751 MOVC3 FWAS$Q CONCEAL _DEV(R10),- 3 copy string 
18 BB 0C2D P36 aF SCBSQ_DEVICE+4(R11),- 
OOEC DA CoF 3 aFWASQ CONCEAL DEV#4 (R10) 
05 68 02 €1 OC32 2754 B #FSCBSU_ROOT,(R11),10$ ; is there a root directory 
is 10 0C36 2755 BSBB CHECK ROOT 3 copy the roots : 
07 5 E9 OC38 2756 BLBC RO,90 : signal error 
5B «€6FEFC CB) O9E «=O 757 10$: MOVAB -FSCBSK_BLN(R11),R11 ; restore first FSCB . 
AG 11 bee £38 80$: BRB DONTUSE : and ignore the translation 
C4 760 90$: RMSERR DEV 3; say it’s a device error 
F8F3) 48631 «=OC4 761 BRW PRS_ERROR 
OC4A 2762 
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STRING ; st tS 9 0:43:08 AX/VMS Macro V04-00 


r 
SEP- RMS.SRCIRMOXPFN.MAR; 1 


: This routine copies the rooted directories from the FSCB into the FWA. 


CHECK_ROOT: 
PUSHL R6 3 save ré 


We must follow special rules if this is the filename from a relate 
ile block. We want to include the rooted dir (e.g. CSOPHIE.CHOIC 
in basically the same instances that we would include a device. 


d 
E.J) 


BBC #FWASV_RLF PASS, (R10) ,5 


BNEQ 208 :; br to ignore root 


s 
BBS #* ABSV_OFP+FOP, (R8) ,20$ ; ignore rootdir on output parse 


5$: BBSS #FWASV_ROOT_DIR, (R10) ,40$ : say root dir present 
MOVZBL FSCB$B-ROOTS(R11) ,R6 ; add number of concealed dirs 
CMPB R648 ; better not be more then 8 dirs 
BGTR 50 ; if not error 
MOVA @F SCB$Q_ROOT1+4(R11) ,R3 ; get addr of start of string 
ADDBS #2,-1(R3),FWASB_ROOTERM(R10)  : stuff the terminator 


Can't be wild, have elips or minus signs 
Count needs to be adjusted for zero-origin as well. 


10$: MOVAQ FSCB$Q_ROOT1-8(R11)CR6],R1 : get addr of FSCB descriptors 
MOVAQ FWASQ COIR1-8(R10)CR6),R2 : get addr of fwa descriptors 
BITL  #<FSCBSM_WILD!FSCBSM_ELIPS!FSCBSM_MINUS>, (R1) 
BNEQ 50$ ; if so error! 
MOVW (R1),(R2) ; copy length 
MOVC3 (R1),@4(R1),a4(R2) 3; copy str ng ; 
SOBGTR R6,10$ 3; loop for all descriptors 
eps: RMSSUC 3 0 
0$: POPL R6 3; and ré6 
RSB 3 exit 
ASSUME FWASV_DUPOK EQ 0 
208: BLBS (R10) ,20$ ; ok/ignore if duplicate 
50$: CLRL RO 3 error 
BRB 30$ 3 exit 


is gt -5$ ; br if not related filename 
BITW #FWASM~DEVICE ! FWASM_EXP_NODE, (R10) sdevice or node seen already? 
; br 


RMOXPFN EXPAND FILE 


AM 
v04-000 ALLOCATE_SL 
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DWONANE AID SO ODONAUN EWN 0 ODNAM EWN 0 OD NAME WN OOO NAOULSWN—"OWOONOULSWw - 
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STRING 
Llocate Search List Block 


ALLOCATE SLB: 
Mova 


16-SEP-19 . 0:43: AX/VMS Macro V04-00 
Breer bs $orsi58 PANS eR TasORPr A mans 1 


-SBTTL ALLOCATE_SLB, Allocate Search List Block 


;++ 
; ALLOCATE_SLB 


Allocate a SLB to be put on the xx_SL 14 list. The information 
in the SLB is to be copied from the ‘FAKE’ SLB in the FWA 
painted to by R6. 

On exit R6 will point to the new SLB. 

Things to set set: 


SLBSL_FLINK 
SLB$L-BLINK 


SLB$B_-BLN 
SLBSB_FLAGS 


Linked into slb List 


SLBSC_BLN 

SLBSV_REALSLB 

Things to be copied from ‘fake’ SLB: 
SLBSB_LEVEL = fake$b_level - 1 


SLBSL_ INDEX 
SLBSL_MAX_ INDEX 
SLBSL-ATTR 


: Allocate a SLB 


: We have a new SLB pointed to by Rl, 


format it 


7E 54 7D OCA1 V R4,-(SP) 3: save R4,R5 
52 06) «(9A (OCAG MOVZBL #<SLBS$C_BLN/4>,R2 > get # of longwords 
D OCA7 PUSHL R 3; save FSCB 
5B 54 AA DO OCAI MOVL FWASL_IMPURE_AREA(R10) ,R11 3 restore impure address 
OO000000'EF 16 OCAD JSB RASGETEL K1 3 get the space 
5B 8EDO O0CB3 POPL R11 ; restore H CB 
38 50 €9 OCB6 BLBC RO,90$ : exit on error 


and add it to the END of 


the search List queue for this pass. 


ASSUME SLBSL_FLINK EQ 0 

ASSUME SLBSL_BLINK EQ SLBSL_FLINK+4 
ASSUME SLB$B_BID EQ SLBSL_BLINK+4 
ASSUME SLB$B_BLN EQ BS$B_BID+1 

ASSUME SLBSB_FLAGS EQ BS$B_BLN+1 

ASSUME SLBSB_LEVEL EQ SLB$B_FLAGS+1 
ASSUME SLBSL_INDEX EQ SLBSB_LEVEL +1 
ASSUME SLBSL_MAX_INDEX EQ SLBSL_INDEX+4 
ASSUME SLBSL-ATTR EQ SLBSL_MAX_INDEX+4 
MOVL R1,R6 + copy addr 
MOVL R6,(R1)+ ; set up forward and 


R 
Vi 


¢ 5 


RMOXPEN EXPAND FILENAME STRING 1g-SeP 1984 00 
v04-000 ALLOCATE_SLB, Allocate Search List Block 5-SEP-19 
81 56 dO CBE 70 MOVL  R6, (R1)¢ 
52. OOAB CAO ie 7 MOVL EuAS SLBH_PTR(R10) ,R2 
50 OC A2 bg ae 5g MOVL a SLB-QUE (R2) ,RO 
06 13 OCCB 2874 BEQL 
04 B0 66 OF CC 3 INsGuE (RS) ,@SLBSL_BLINK(RO) 
0c a2 56 0 C05 10$:  MOVL _—R6, SLBHSL_SLB_ QUE (R2) 
81 29 90 Oc? 8 20$ MOVB #SLBS$C_BID,(R1)+ 
1 D6 OCDA 2880 INCL 
81 01 90 te Ht MOVE § #SLBSM_REALSLB, (R1)+ 
OCDE 8 ASSUME SLBSB_LEVEL EQ 
50 00C3 CA bE OCDF He MOVA A ae LEVEL(R10),R9 
81 80 01 83 OCE4 2886 SUBB (RO+,(R1)+ 
81 80 7D OCE8 2887 MOVQ trode. (Ri) e 
81 80 DO OCEB 2888 OVL  (RO)+,(R1)+4 
OCEE 2889 RMSSUC 
54 BE 7D OCF1 2890 90$:  MOVQ  (SP)+,R4 
05 OCF4 2891 RSB 


0:43:08 VAX/VMS Macro v04-00 
SAS Me CORT Se ert re 


backward pointers 


get SLBH addr 
et first SLB 


here is none 
insert at tail 
continue 

add only element 


set block id 
skip BLN 
set flag 


<FWASB_LEVEL-FWAST_SLB> 


| 
| 
| 
; get ‘fake’ SLB addr at INDEX 
copy level - 1 
copy index and max_index 
copy attr 
| 
| 


restore R4,R5 


<z 
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Upcase and compress user 5-SEP-1984 16:22: RMS.SRCIRMOXPFN.MAR; 1 (38) 


-SBTTL UPCASE_COMPRESS Upcase and compress user strings 


RMOXPFN EXPAND 
v04-000 UPCAS 


= 


om 
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=r 


Entry point for UPCASE_COMPRESS. 

This routine copies the source string to the destination buffer while 
epces tes lowercase characters and removing space, horizontal tab, and null 
characters, except that characters enclosed in quotes are moved unaltered. 
Inputs: 


R5 Destination buffer descriptor 
<R6,R7> Source string descriptor 


Outputs: 


R5 Destroyed : 
<R6,R7> Destination string descriptor 


Sete Ge Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge 
+ 


DSIDPVPV II OS DSSS «=O 
DWDOODOOOOOOOOOOOOOOOVOOOOOOOOOOOOOOOMMdM@OCDCDOD Mm 


; Bit mask of escape characters when upceg ing and compressing 
; Chars are quote (22), blank (20), tab (9) and null (0). 
00000201 ESCAPE _CHAR: - LONG : null and tab 
00000005 ~LON 3 space and quote 
00000000 - LONG 
00000000 LONG 
00000000 
00000000 LONG 
00000000 LONG 
00000000 LONG 
UPCASE_COMPRESS: : é 
56 =—D5 TSTL R6 ; Branch if source string length is 
¢? 13 BEQL 50$ 3 ‘ ' 
7E 4 7D mova R4,-(SP) ; Save destination buffer address 


and free register 


Examine each character in the source stri 
Take advantage of the fact that the ASCII 
null, and quote are less than the ASCII v 


ng. 


9g ; 
values for space, horizontal tab, 
alues for lowercase characters. 
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10$: MOVZBL (R7)+,R4 ; Get char 
BBS R4,B*ESCAPE_CHAR, 60$ A special one? 
20$:  MOVB GPEXESUPCASE_DATER4,~ Upcase it 


and append to destination 
oe? 30$: SOBGTR R6,10$ 


54 iH 
16 D2 AF 4 
85 00000000°GF44 0 


D 
D 
ED 56 FS QD 
D 
D 
4 
D 


WOOO0000000 
ree 


Check for end of source string 


MRA AO OL HOMOOOOOOOY 


PoPoPonononosnonononnons 


947 ; 
3e8 ; The source string is exhausted. 


ee ee ee 
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v04-000 UPCASE_COMPRESS Upcase and compress user et Ti 10:32:98 CAMS SRCIRMOXPEN-MARS 1 - (8) 
D2F 950 
54 ged D2F 2951 40$ POPL RG ; Restore saved register 
57 BED D é 326 POPL R7 3; Restore destination address 
56 55 57 " D 95 SUBL3 R7,R5,R6 ; Compute length of destination string 
D39 2954 50S: $B z Exit with <R6,R7> describing 
D3A 2955 3 upcased and compressed string 
14 A 328 
D3A 2957 ; 
OD3A 2958 ; A punctuation mark was found, check for which one 
8p 2 328 ; A space, tab, or null character has been found. simply discard it. | 
4 A 2961 
22 54 91 OD3A 96¢ 60S: (MPR RA A/"/ : Check for quote | 
ED 12 OD3D 296 BNEQ 308 ; Discard character 
OD3F 2964 
OD3F 2965 ; 
OD3F ace 3; A leading quote character has been found. 
it 967 ; Copy all characters unaltered until the matching quote is found, unless 
OD3F 2968 ; the Leading quote was preceeded by two colons which indicates that this is 
O03 4H ; the start of a network quoted string (as opposed to an access control string) | 
D3F 2971 | 
7E 55 046 AE C3 OD3F 2972 70S: SUBL3 4(SP),R5,-(SP) ; Which char pos is this in? 
85 54 90 0D44 358 MOVB R4,(R5)+ 3; Store the quote 
56 07 QD47 2974 DECL R6 ; and count it 
06 14 QD49 2975 BGTR 80$ ; branch if not at end of string 
5E 04 AE DE OD4B 2976 MOVAL 4(SP),SP i; pop top element from stack 
DE 11 OD4F 2977 BRB 40$ 3 and branch to exit 
8E D7 OD51 2978 80S: DECL (SP)+ ; Branch if first or second character 
08 15 0D53 2979 BLEQ 90$ ; _of string 
3A3A 8F FE AS 81 OD55 2980 CMPW =2(R5) ,M*A\::\ ; Branch if previous two non-compressed 
10 13 0p58 att BEQL 100$ 3 character were both colons 
0D5D on6 
OD5D 2983 ; 
OD5D 2984 ; This is where we skip all characters between quoted, and do not upcase or 
OD5D 2985 ; compress them. This works for access control strings because they don't 
0D5D 356 ; have imbedded quotes, and it works for ANSI-"‘a"' Wascopecs (which may have 
OD5D 2987 ; imbedded quotes) because the imbedded quotes are doubled. That causes them 
QD5D 2988 ; to look Like lots of short queted strings as far as this routine is concerned 
Ob 28 4:44 3 but nevertheless, this routine will still not bother the internal characters. 
OD5D 2991 ; Note that ANSI-"‘a"’ filespecs do want to be upcased -- this is done at the 
3b 28 4 3 end of processing -- when we actually append the type and version fields 
Spa 994 
54 87 9A QD5D 2995 90S: MOVZBL (R7)+,R4 ; Get next char 
22 5491 + 99 CMPB R4 MAAN ; Is character the matching quote? 
BF 13 006 99 BEQL 2 ; Branch if yes to resume normal scan_ 
85 54 90 0065 2998 MOVB R4,(R5)+ ; Append character to destination string 
F2 56 F5 QD68 2999 SOBGTR R6,90$ : End of source string? 
C2 11 «0D68 600 BRB 40$ : Branch if yes 
se 8 
D6D 008 ; This is the start of a network quoted string. It may hive embedded quote 
D6D 4 ; characters and it must be the last element of a file specification string. 
D6D bbe ; Therefore, copy all characters unaltered until end of string is reached, 
D6D 6 ; then work backwards to remove trailing spaces, tabs, and nulls. 


<D 


re 


RMOXPFN EXPAND FILENAME STRING 16-SEP-1984 90:33:08 AX/VMS Macro V04-00 Page gr 
v04-000 UPCASE_ COMPRESS Upcase and compress user 5-SEP-1984 16:22: RMS .SRCIJRMOXPFN.MAR; 1 (38) 
36D a 
85 87 20 Dg § 100$:  MOVB (R7)+,(R5)+ ; Append the rest of the source string 
FA 56 OF of 19 SOBGTR R6,100$ 3; to the destination string 
D7 12; 
D7? 18 : The source string has been exhausted. Truncate string after last non 
D7 14 ; space, tab, or null character. 
a Bie 
20 «=75 3 D7 i 110$:  CMPB -(R5) ,#*A/ / ; Discard space 
A 1 o7e 18 BEQL igs ; 
09 «6 91 0D7 1 CMPB (R5) ,#HOR_TAB ; Discard horizontal tab 
A; 1 D7B 0 BEQL 1198 3 
6 9 D7D 1 TSTB (R5) ; Discard null 
Ee 1 D7F § BEQL 1108 : 
5 D6 +4 0 INCL R5 ; Position pointer past new end of 
AA 11 0D83 3024 BRB 40$ ; destination string 
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~SBTTL CHECK _FIELD = Check for Valid Field and Copy Routine 


+ 
- 


Functional Description: 


This routine checks the field described by input descriptor for 
validity based upon the field {bags the high word of the descriptor and 
and the desired checks specified by RO. 


Checks and operations performed: 


1. if the field is null, return. 
la. check the size 
2. if FWASV_RLF_PASS set and the field is not 
selected by the type of parse (input or output, based 
upon the FOP bit OFP), return, thus ignoring the field. 
3. if the filename element specified has already been seen, then 
return unless FWASV_DUPOK is clear (duplicates 
not allowed) in which case generate an error. 
4. fag the filename element present. 
5. if the field is a wild card, flag that too, 
both for specific field and overall. 
6. if this is a logical name save the descriptor only, 
otherwise copy the field to the element buffer setting the 
Length in the descriptor. 
7. return 
8. set V_NOT_COPIED if Gupt toate field was ignored 
(i.e., not copied to element buffer). 


Calling Sequence: 
BSBW CHECK_FIELD 
Input Parameters: 
RO plage 
R1 Maximun field size 
R6,R7 Descriptor of input field : 
R5 Address of descriptor of output field 
R8 FAB address 
R10 FWA address 
Implicit Inputs: 


The current state of the FWA, includin 
FWASB_FLDFLGS, FWASV_RLF_PASS, FWASV_DUPOK, FWASV_LOGNAME 


Outputs: 


RO - 1 - Ok, copied — 
0 - Ok, not copied 
R1-R3,R5 Destroyed 


; Implicit Outputs: 


9). 


| 


| 


H 5 | 
RMOXPEN EXPAND FILENAME STRING 16-SEP-1984 00:43:08 VAX/VMS Macro v04-00 p 9 
v04=000 NECK FIELD o Eheck tor Valid Field and S-SepaloRe $ors3.58 FAAS eRCTRMOGPEA Maes] age 93) 


~FWASB_FLDFLGS or FWASV_LOGNAME or FWASV_NODE set if field copied | 

“FWASB_WILDFLGS and FWASV_WILD set if field is wild 

“FWASB_DIRFLGS set if directory field (also FWASB_DIRWCFLGS) 

=the ind cated FWA element buffer and its descriptor are 

updated if field copied 
Completion Codes: | 

RO 
Side Effects: 


None 


Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge te 


o- | 


CHECK_FIELD: 
CMPW SS saR6, RI 
BGTRU 108 
BBC #FWASV_RLF_PASS, (R10) ,40$ 


is the field size ok? 


nope 
Branch if not parse of 
RLF string 


; This is the parse of the related file string. | 

; Look at the OFP FOP bit to determine whether this field is 

; to be utilized or not. | 
| 


The rules are: 


If this is a parse of an input file all fields except version are sticky. 
including logicalnames unless the field is null or 

unless a node (real or null) has been specified 

then the node, device and directory fields are ignored. 


are sticky. (Sticky means they will be defaulted from the related 
resultant filename string.) 


Additionally, if the name, type, directory or 
version of an output file parses contains a wild card, this implies 
an explicit default from the related filename string. 


If this is a parse of an output file spec, only the filename and type 
e 
| 


This is an output file parse. | 
Ignore node, device and logname fields. 
For name and type fields, check for wild card and if so use the RLF field, 
else just use if not already seen. : 
For dir and version fields, check for wild card and if so use the RLF field, 
else ignore. 


ASSUME FWASV_WC_NAME EQ <EUASY NAME +8> | 
ASSUME FWASVTWC"TYPE EQ <FWASV~TYPE+8> 
ASSUME FWASVTWC"VER EQ <FWASV~VERS10N+8> | 


BBC #FABSV_OFP+FOP,(R8),20$ ; if not output file parse 


OOCOCOSCOCOSOOCOOOOCOGOOCSOOOCOSOOOOCSCOCO SOOO OCO OOOO COOCOO SOOO OOOOOOOOoOOoOO 
ih =A) -h h-hh -)- 1-4-4444 4 44444444 AA AAA A_A_A_A_A_A_A_A_A_A_A_A_A_A_ AAA Ahhh 
2000000 00 09 G9 G0 0d Cd 09 GD GD GD Cd OD CD 0D 09 OD Od Cd OD 59 G9 OD C9 Cd Ct CD Co 00 0D CD CD 0D CD OD Cd 0 CD CD 09 G9 CD GCN CD CO CD CO CD ORV OD CD CD CD OD 
THM MMMM MMM MMM MMMM MMMM MMMM Mere MMMM ME TIEN ETCH ET ET Se COU 
WOO NIA UNE WN OS OD NA NES WWIN 9 OD NAW I$ OOD NIA UE WIN 9 OD NAME WIN SO OONOUS WW 


AAA ALAA IPINPIPYIPINPINIDPININYD 32 9 | “QOTDTOCOCOOCOCOCOCOCOOOVOOOOOOWWOWWOoww 


ee a ee ee ce a a a a me a ee a a a ee ce a a a a a ed ad ad ad mB OOO: 


1D 68 3D €1 
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v04-000 CHECK_FIELD = Check for Valid Field and ~SEP=-1984 RMS.SRCIRMOXPFN.MAR; 1 
“9 ; 4 D 149 CMPB RO, #FWASV_NODE 3; Is this ee. node? 
1 D 14 BEQL HKRT ; ignore 
sot 4 d9 125 CMPB RO, #FWASV_DEVICE 3 Is this the: “device? 
1 DIA 314 BEQL HKRTN 3; ignore 
4D 01 AA 5 D9C 3144 BBSC R TRIO), 80$ 3; Use if wild and make non-wild 
0D j DAI 145 CMPB R *sFWASV. NAME 3; is this a me? 
1 DAS 196 BEQL 5 3 Go default” the. field if not seen 
0c 0 91 OQDA 14 CMPB RO, #FWASV_TYPE : is this type? 
0 13 QDA 148 BEQL o$ : Go Sofeult the field if not seen 
A 11 m4 135 BRB CHKRTN : Ignore version and dir if not wild 
67 11 ODAD 13) 10S: BRB CHKERR 3 no, signal error 
Soar 8188 
ODAF 18% : This is an input file parse: 
ODAF 3155 ; Ignore version field. 
QDAF 136 3; Use name, type and Logname fields if not null. 
oe! 138 : Use node, device and directory fields if not null and node not specified. 
DAF 3159 ° 
0B 29 91 ODAF 3160 208 CMPB RO ,#FWASV_VERSION 3; Is this the version? 
5 13 ODB2 3161 BEQL CH :; ignore if so 
30 650 1 9583 196 a RO, #FWASV_LOGNAME 3; is this a logical name? 
OD $0 % 9089 196 CHPB RO #FWASV_NAME : is this a name? 
3 ye 
0c 50 4 ope} 196 er * #FWASV_TYPE 3 tS this a type? 
40 6A 06 €9 ODC3 3168 BBS #FWASV_EXP_NODE, (R10), cHkR TN ; Ignore if node specified 
ODC7 3169 ; Use field if not null 
Ope? 3171 
444 76 : The field is acceptable for use. Use if not null and not duplicate. 
DC7 3174 © 
3¢ 560 14~—SCtCOED Opt7 175 40$: BBS #FSCBSV_NULL, RS. CHKRTN ; branch if null field 
38 6A «6550~—éséE2 pore 176 50$: BBSS RO, (R103, CHKDUP ; branch if duplicate 
434 i : Else show we have it now ... 
434 179 ; Check for directory field and set the overall = Hb flag if so 
04 aA 3 444 : 1 ire FWASB_DIRFLGS(R10) 3 7 directory bits set, 
3; NO - go awa 
44 } 5 SSB #FWASV_DIR, (R10) s Ves Ae the dir summary bit 
DDB 8186 
pos 31 3 : Check for wild card. 
sh 
12 56 11 #&24E1 ODD 190 60$: BBC #FSCBSV_WILD,R6,80$ : Branch if field not a wild card 
44° 13) SSB #FWASV_QILDCARD,(R10) ; Set overall flag 
DE 138 ASSUME FWASV_WC_VER EQ <FWASV “VF Rs iguee> 
+3 Ie ASSUME FWASV “witb _UFD £0 <FWASV _DIR1+8> 
DE 196 $SB RO,1(R10) 3 Set specific wild card 
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; At same bit position in next byte 
TSTB LyGS0 _DIRUCPLES (R10) 3 Any directory wild card bits set, 


BEQL No = go over 
SSB #FWASV_WILD_DIR, (R10) Yes - set the wild dir summary bit 


; If this is a logical name don't copy the string. 


80$: CMPB RO, #F WASV_LOGNAME ; if this is a logical name then 
BEQL CPYDSC ; branch 
PUSHL R4 
MOVZWL R6,(R5)+ ; store Length 
MOVCS R6,(R7),a(R5) ; and copy the string 
POPL R4 
CHKSUC: se aaa #1,R0 3 exit to caller with success 


: Don't copy of string since it's a logical name, just save descriptor. 


CPYDSC: MOVQ R6, (R5) 3; save descriptor 


CHKRTN: CLRL RO ; flag field not copied 
RSB ; return 


; This field has ape Bs ny set 


: Ignore it as long as ASV_DUPOK is set. 


ASSUME FWAS$V_DUPOK EQ 0 
CHKDUP: BLBS (R10), CHKRTN 


: If this is duplicate device because of NAM block input, ignore 
3; the duplicate. 


CMPB RO, #FWASV_DEVICE :; Is this a device? 
CHKERR ; Branch if not - solid error 
BBS eee OVE. CRIS) so ; Branch if device came from DVI 


in NAM block, ignoring duplicate 
: An error has been encountered. 


CHKERR: POPL RO 3; pop return pc 
CLRL RO s Th 


| 

; Return success and string_not_copied 
ag error 
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05 E18 $$2¢ RSB ; exit on Level up 
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-SBTTL STICKY_DIR, Process Sticky Directories 


Seeeee 
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; Functional Description: 


This routine substitutes subdirectories from the RLF name block 
for wild subdirectories in the expanded directory string. 
The algorithm is: 


if the output-file directory is in UIC format 
replace wild group part with related-file group part 
replace wild member part with related-file member part 


if the output-file directory is wild (ie- C*] or (*...] ONLY) 
move the entire related-file a ae hay specification 
if the related-file directory is in UIC format 
mark the output-file directory as in UIC format 


if the output-file directory has a trailing ellipsis ('’...°") 
move the entire related-file Le me 1 foal pa 4 tree starting 
from the first wild related-file (sub)directory 
if there is no wild related-file (sub)directory, just 
remove the ellipsis 


if the output-file givectory contains cresting asterisks (‘'s'*) 
substitute for the trailing asterisks, related-file 
(sub)directories, starting with the first wild 
related-file (sub) directory 
Additional Syntax Rules: 
1. No substitution occurs when the output-file directory specification 
is in UFD format and pert ret sy wild, but there were no wild 
(sub)directories in the related-file directory specification. 


2. Legal wildcards (‘'*’' and ‘’..."') can only trail and are mutually 
exclusive. 


3. The format of partially wild output-file directory specifications 
and their related-file directory specifications must be the SAME 
(UFD and UFD or UIC and UIC). 
MOVE RELATED substitutes subdirectories from the related file name 
block for subdirectories in the expanded file name string. The 
algorithm is as follows: 
ie get W98 related directory we're supposed to move 
- Move 
¢: While there are related directories move them 
Calling Sequence: 
BSBW STICKY_DIR 


Input Parameters: 
none 
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Implicit Input: 


Rg - descriptor of RLF string 
R? = descriptor of RLF string 


wa 
R11 = FSCB 


Output: 
RO = STATUS 
Implicit Output: 
| 


Wild directory descriptors ae be sengee to actual values 
FWASV_DIR_LVLS is appropriately update 
FWASB_DIRCEN is appropriately updated 


Directory descriptor is replaced with either a related subdirectory 
descriptor or a series of subdirectory descriptors 


FWASV_DIR_LVLS is updated to contain the number of directories 
now in the output-file. 


ASSUME FWAS 
ASSUME FWAS$ 


STICKY_DIR: 
PUSHL R9 
BBC #EWASV_WILD_DIR, (R10) ~ 


EQ <FWASV_DIR1+8> 
EQ <FWA$B_DIRFLGS+1> 


save ifb ptr 

If there are no wild directcries 
there is nothing to do so go 
exit with success 


mo 
-o 


6A 


on—u 
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: initialize some variables and obtain the RLF NAM FNB bits 


59 D4 10$: CLRL R9 3; RY <= index of first wild dir in FWA 
4 0130 8F 3C MOVZWL #FWASQ DIR1,R4 ; R4 <= disp to directory descriptors 
1 OOA8 CA dO MOVL  FWASL_SLBH_PTR(R10).R1 : point to current SLBH 


ww 


implement the tyntax rules restricting partially wild UFD output-file 
directory spec ‘cet tone to UFD formatted related-file firectory 
specifications and partially/totally wild UIC output-file directory 

erect # igec tens to UIC formatted related-file directory specifications. 
also, if the output-file directory is totally wild (C*] or C*...J) and the 
related-file directory specification is in UIC format, mark the output-file 
directory specification as being in UIC format. 
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BBC #FWASV_GRPMBR,(R10),20$ ; if the output-file is in UIC format 
BBC #NAMSV_GRP_MBR,- ; but the related-file is not, then 
SLBHSL"NAM~FNB(R1),35$ : go exit with an error 
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BRwW 80$ ; both are in UIC format 


3; if the related-file is in UIC format 
1),30$ ; but the output-file is not, the 
(R10),35$; Latter must be cop letely wild 
10) 3; indicate output-file in UIC format 


(R 
BBC #FWASV-WILD UFD, 


$SB #FWASV_GRPMBR, 


; if the first output-file directory is wild and is the correct type (ie - ‘'*’’) 
; but subdirectories follow, return an error 


30$: BBC #FWASV_WILD_UFD,(R10),40$; if the first directory is wild, 


m— wr 


ono 


BSBW HECK_QLD_FTELD ; it must be of the correct type 
BNEQ ; and must not be followed by any 
BBS #FWASV_DIR2,(R10),35$  ; directory or it is an error 


; if the aig fee directory is totally wild and of the correct syntax 
(ie C*] or C*...J), setup to substitute and go substitute in the entire 

; directory specification of the related-file. if however, the related-file 

; directory specification is CJ then there are no related (sub)directories 

; to transfer, so immediately return success. 


BBS #FSCBSV_NULL,- ; if the related-file is null 
FSCB$Q_BIRECTORY(R11) ,38$ 

CLRB FWASB_DIRLEN(R10) : zero the directory Length 

CLRL AP ; start with the first related subdir 

BRB 55$ ; go do it 


35$:  BRW . S_ERR 
38$:  BRW $_SUC 
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v04-000 STICK R, cess Sticky Directories -SEP-1984 16:22: RMS .SRCIRMOXPFN.MAR; 1 (41) 
: The first directory in the output-file is not wild 
: Find the first wild (sub)directory in the related-file then prepare to 
:; find the number of trailing asterisks or the position of the trailing 
: ellipsis in the output-file directory specification. 
18 #=EA 40$: FFS #NAMSV_WILD_UFD,- ; find the offset in the filename bit 
08 #FWASC-MAXSORDIR+1,- ; field to the first related-file wild 
50 10 Al SLBHSL_NAM_FNB(R1),RO ; directory 
x BS UB SS SUBL3. #NAMSV-WILB_UFD,RO,AP ; comoute index of the RLF wild dir 
3; NOTE: AP = MAXSUBDIR+1 if none found 
51 04 CLRL R1 : init wild output directory counter 


When an ellipsis is encountered in the scan of the output-file director 
specification, if legal wildcards had already been encountered ( R1 <> 0) 

or if any subdirectory follows, an error is returned. 

Otherwise, move the related-file arcorrery subtree starting with the first 
wild (subsdirectory in the related-file directory specification to the 

1, et ee directory specification starting at the position of the trailing 
ellipsis. 


16 6A44 10 ES 50$: BBCC #FSCBSV_ELIPS,(R10)CR4I,- 
60$ : look at next dir if no ellipsis 


; and clear the flags if there is 
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51 05 TSTL R1 : error if any wild directories 
E512 BNEQ 35$ ; had already been encountered 
59 66 INCL R9 ; correct R9 for ellipsis position 
DE 04 AA 59 «£0 BBS RO, FWASB_DIRFLGS(R10) ,35$ : error if any directory follows 
3; the ellipsis in the output-file 
x & Fi CMPB #FWASC_MAXSUBDIR+1,AP ; if there are no wild related-file 
oe BEQL 75$ ; (sub)directories, then return success 
54 08 QA 55$: MOVZBL #FWASC_MAXSUBDIR+1,R4 ; transfer as many dirs as required 
0081 + 31 BRW MOVE _RELATED ; go do it 


RMOXPFN 
v04-000 


ou 
o = 


07 05 AA 


oa 

> 
MmoVvm —Lf ur OW 
ooe0 ofvovno aw 


oO 
o 


Fe et et et ek ee ve 


D009 INNS NP AAA A AA AAA MIMI 


= 
zr 
om 


STRING 
cess Sticky Directories 


me 9 


wom —-0-0 o”9g 
"WMO WU Of 
COOCOOOGOOOCOOC OOOO OOOOOOSOOOOOOSOSOSOSSS <Y 
TM MM MMM MMMMMMMMMMMMMMMmMMMMmmMmmmermnecneniey fF 
See eee SaSseSSSsSsssssss on 
WBOOMODODOOUIW—OO Sb NYUMUINNOOCOUVVI9I9990"9"9 


@Or>p 


mwnNe 
DOONAN EWN OOONAMU EWN OOONAUS WI OOOnN 


NANO 
FSS SESS SESS SESS SS SESS SSS SS SS SS LS SS OS TS 


OO w 
Ww 


¢ 6 
16-SEP-1984 00:43: AX/VMS Macro V04-00 e 77 
eet ets PY Sey aes tt ert Pl oF 65) 


if we have completely scanned the output-file directory specification, we 
go determine how many trailing asterisk were encountered, if any. otherwise, 
we test the next subdirectory to see if its wild. if it is, we go check its 
Ss ohh F if it is not, but a wild subdirectory preceeded it, return an 
error. finally, if the next ee es | is not wild and no wild subdirectory 
preceeded it, go check whcther an ellipsis follows. 


60$: INCL R9 ; Offset for next wild dir bit 
ADOL #8,R4 3; Disp for next descriptor 
CMPB R9,#FWASC_MAXSUBDIR+1 ; if looked at all directories 
BEQL 70$ 3 then go decide what must be done 
TSTB (R10)CR4) : Is descriptor null ? 
BEQL 70$ ; Yes - done with out dir 
BBS R9,FWASB_DIRWCFLGS(R10),65$ ; if subdir is wild, check its legality 
TSTL R1 ; if subdirectory is nonwild but the 
BEQL 50$ 3 preceeding directory was, go return 
63$: BRW S_ERR 3 an error, else go test for an... 


; when a wild subdirectory is encountered its legality is checked. if it is 

; of the correct type (ie ‘'*’') we continue the scan of the output-file | 

3; directory specification by checking whether an ellipsis follows. otherwise, 
3; an error is returned. 


65$: BSBW CHECK_WLD_FIELD H 
BNEQ 63$ 3 No - exit with error 
INCL R1 3 yes - incr wild dir count 
DECB FWASB_DIRLEN(R10) ; Decrement the total directory length 
BRB 50$ : continue looking at directories 


| 
| 
| 
Is wild dir the legal type ? 
| 
| 
| 
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v04-000 STICKY_DIR, Process Sticky Directories misty 7 8:33:98 LRMSSRCIRMOKPEN.MAR; 1 " (44) | vd 
EB4 3483 ; 
EB4 3484 ; the entice eurpytst "ie directory specification has been scanned with | 
sot re 5 ; no trailing ellipis found 
EB4 34 5 ; if no ens asterisks were encountered, go return success, 
EB4 34 8 3 otherwise, compute the wild directory bit and directory descriptor 
EB4 3489 ; displacements for the first asterisk encountered, and go move the 
EB4 3490 ; required number of related-file directories. 
EB4 3491 ; 
4 136 
51 if EB4 3493 708: TSTL R1 : if no trailing wild dirs found 
2 BEB 494 BEQL $_suc ; then return success 
EB 495 
OEB 4 ; Z 
a rh t4 : if there arn't any wild related-file (sub)directories, then return 
EBB 3499 ° 
5c 08 91 oes 500 CMPB #FWASC_MAXSUBDIR+1,AP ; if there are no wild related-file 
4A 13 Rees 2p) 75$: BEQL $_SuC ; then return success 
1D EF OEBD 208 EXTZV #FWASV_DIR_LVLS,- 3 extract the number of subdirectory 
59 6A 03 QEBF 3504 #FWASS_DIR_LVLS,(R10),R9; levels in the output-file 
7 2) 6 bEce 505 SUBL2 =R1,R9 ; subtract the trailing asterisks | 
59 «D6 OECS 3506 INCL R ; need to add one to get to the subdir 
32. 11 OEC7 3507 BRB 110$ 3 go perform the substitution 
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ci | 
EC 9 3; for UIC foraetred output-file directories, preset the number of the | 
EC9 i 3; related-file directory to be first to be moved to 0 (the group! « the number 
EC9 2] 3 of ejreqces see to be moved to 1 (just the group part), and predecrement the 
3; tota rectory count appropriately. 
Fro 3818 5 
EC9 3516 ° 
5¢ OD EC9 215 80$: CLRL AP ; preset wild related-file dir # to 0 
ss Ow 4 5 218 MOVL #1,R1 3; preset number of dirs to move to 1 
2E AA pc 344 DECB FWASB_DIRLEN(R10) ; decrement total directory length 
ED1 3521 ; 
OED} 5 ¢ 3 if the group part of the UIC formatted output-file directory is wild, make 
OED1 3523 ; sure its of a valid type, and then set the number of subdirectory levels kept 
OED1 3524 ; within the FWA to 0 so that the first directory to be replaced will be the 
OED1 3525 ; group part of the output-file. 
ae 
28 SCE Nat 528 BBC #FWASV_WILD_GRP,- : if group of UIC format output-file 
1B 6A BEDS 529 (R10) ,90$ : dir is not wild, go check member part 
009A 30 OED 530 BSBW CHECK _WLD_FIELD :; if wild group part of dir is not 
26 «6°12 «#(OED8 23) BNEQ S_ERR ; valid then return an error 
OEDA 3835 
OEDA a 3 if both the group and member parts of the UIC formatted output-file directory 
OEDA 3535 ; specification are wild (ie [*,*]), then make sure both are of the correct 
OEDA 3536 ; type. increment the number of directories to be moved and decrement the 
OQEDA 3537 ; directory Length appropriately, and then go substitute in both and member 
OEDA 3538 ; parts from the UIC formatted related-file. if just the group part is wild, go 
OEDA 3539 ; substitute just the group part from the related-file. 
OEDA Sec] 
29 +€1 OEDA 246 BBC #FWASV_WILD_MBR,- : if output-file dir is not ([*,*] 
1D 6A OEDC 354 (R10), T10$ 3 then go setup transfer as is 
54 08 CO OEDE 3544 ADDL2 #8,R4 ; increment dir descriptor displacement 
008 30 OEE1 3545 SBW CHECK_WLD_FIELD ; if wild member part of dir is not 
1A is QOEES 3546 BNEQ S_ERR ; restoring saved displacement values 
54 08 C2 OEE6 3547 SUBL2 #8,R4 : restore dir descriptor displacement 
51 D6 OEED 3548 INCL R ; increment count of wild directories 
2—E AA «697 «€(OEEB «O(3549 DECB FWASB_DIRLEN(R10) : decrease total directory Length 
OB 11 OEEE 3550 BRB 110$ 3 go transfer both group and member 
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a UR, 
EF 4: if just the member part of the UIC formatted output-file directory 
EF 5 ; specification is wild, make sure its of the correct type, and that the member 
EF § ; part of the output-file eres tery is to be replaced by the member part of the 
EF 3; the related-file directory specification before going and performing the 
EF 8 : substitution. 
EFO 3860 * 
5C 06 OEF a6 90$: INCL AP ; related-file member to be transfered 
59 ~OD EF 206 INCL : incrm witd bit disp to wild member 
54 98 f EF 56 ADDL2 #8,R4 : incrm descriptor to UIC member slot 
EF? 3564 BSBB CHECK_WLD_FIELD : if wild group part of dir is not 
ae EFS 3565 BNEQ S_ERR ; valid then return an error 
aa 
EFB 208 : when either UIC formatted output-file directory specifications or partially 
EFB 2$ ; wild directory specifications in UFD formatted are involved, setup to move 
EFB 3570 ; the requires number of related-file directories (or directory parts in the 
EFB 3571 ; case of a UIC formatted output-file directory), and go move them. return 
OEFB 276 3; success when the substitution is completed. 
Sere Sepa 
54 51 DO OEFB 3575 110$: MOVL R1,R4 z number of directories to move 
O& 11 OEFE 576 120$: BRB MOVE _RELATED ; go do it 
83 
OF O00 358 : exit with the appropriate status 
OFOO 8881 | 
OF 00 38 S_ERR: RMSERR DIR 3 error 
03 11 oro? : i BRB S_EXIT 
OF 07 388 S_SUC: RMSSUC 3; success — 
59 BEDO OFOA 3586 S_EXIT: POPL R9 : restore ifab 
05 OFOD 3587 RSB 3 exit 
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“SEP-19 
Working Registers for MOVE_RELATED: 


RMS.SRCJRMOXPFN.MAR; 1 


RG - number of related subdirectories to move 
RY - index of the output subdirectory to start with 
AP - index of the related subdirectory to start with 


MOVE_RELATED: 
CMPB ss AP, FSCB$B_DIRS(R11) 
BGEQU 40$ 


Be Se Ge Se Ge Ge Se Se Ge Ge Be Ge 


40$: ADDL3 #FWASV b1R2 R9,R1 
BBC R1, (R10) ,50$ 


Get the related directory we're supposed to move 


RO, #FWASC_MAXSUBDIR 


§ 
MOVa FSCBS$Q_DIRECTORY1(R11)CAPI,R6 
R6, FWASB_DIRLEN(R10) 


too many subdirs ? 

yes - error 

get the first rlf director 
accumulate the total lengt 
if overflow the byte 


We have to make this a subroutine call since CHECK_FIELD returns 
one level up if there is an error, which is bad news since we 
have pushed registers on the stack in this routine 


BSBB MOVE _REL_FIELD ; copy this field using CHECK_FIELD 
BLBC RO,S_ERR 3 quit on error 

DECL RG :; decrm # of dirs to move 

BEQL 50$ ; exit if no more to be moved 

INCL AP 3 get the next rlf directory index 
CMPB AP ,FSCBSB_DIRS(R11) ; have we moved the Last one ? 

BEQL 40$ > yes, exit 

INCL R9 3 get the next output directory 

BRB 10$ ; and continue 


There may be more related-file subdirectories to move because R9 > 0 
but no related-file subdirectories to move. 


This situation can arise because STICKY_DIR requests 8 directories to be 
moved when it encounters a trailin ol} tpsts. or the output-file directory 
specification consists of [*] or [*...], and because there may be more 
trailing asterisks in the output-file directory specification then there 
are related-file directories to substitute. When the latter case is 
encountered, adjust the number of subdirectories so that FWASV_DIR_LVLS 

s set correctly remaining asterisks. 


; check to see whether there are any 
: trailing output-file directories 
ADDL2 R4,R9 ; add what is left from what was 


required to be copied 


1 mises 9 0:43:08 AX/VMS Macro V04-00 Page 
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RMOXPFN EXPAND FILENAME STRING 16-SEP-1984 743: AX/VMS Macro V04-00 Page 8 
v04-000 STICKY_DIR, Process Sticky Directories $78 Pa} 984 90:53:98 RMS.SRCIRMOXPFN.MAR; 1 ° 3) | 
F4 73 5 
F4 47 ; exit with success 
F4g Sec9 | | 
09 6A 1B €E1 OFS 650 50S: BBC #FWASV_GRPMBR, (R10) ,60$ ; how do we set lvls? 
F4 6 SSB 4 SCBSO_GRPMBR,FWASG_DIR1 (R10) ; reset UIC format fla | 
59 01 00 ee ° § MOVL #1,R ; UIC treated as having 2 levels | 
1D 65 FO OF 654 60S: INSV R9,#FWASV_DIR_LVLS,- ; normal number of subdirs 
6a 0 F $35 #FUASS_DIR_LVCS, (R10) 
AE 11 OF $96 BRB S_SUC | 
f 3 e368 3 
F59 3659 ; We have to make this a subroutine call since CHECK_FIELD returns 
434 660 ; one level up if there is an error, which is bad news since we 
F59 3661 ; have pushed registers on the stack in this routine 
F59 o6¢ : 
F59 366 
F59 3664 MOVE_REL_FIELD: 
F59 3665 SSB. sO, FWASB_DIRWCFLGS(R10) ; set wild dir bit | 
50 59 $9 C1 OFS ADDL3 #FWASV_ 2R9,RO ; subdirectory field | 
31 9A OF62 366 MOVZBL #FWASCMAXNAME ,R1 ; maximum directory size 
55 0130 ca49 «= 7E «(OF6S «3668 MOVAQ FWASQ_BDIRI(RIOSCROILRS : directory descriptor | 
FE17 30 OF6B 3669 BSBW CHECK_FIELD ; move this directory 
50 01 QA OF6E 3670 MOVZBL #1,R0 3; returning here is ok 
05 OF71 3671 RSB 
OF72 3672 


— | 


I 6 
RMOXPFN EXPAND FILENAME STRING i es et 9 00:43:08 eves Macro v04-00 Page 83 
STICKY_DIR, Process Sticky Directories -SEP-1984 16:22: RMS.SRCIRMOXPFN.MAR; 1 (50) 

F 74 ; 
: 75 ; CHECK_WLD_FIELD 
F? 39 ; This subroutine checks a wild field in the FWA (directory, subdirectory, | 
F7 0/8 ; subdirectory part in the case " UIC formatted directories, filename, or 
F7 679 ; Speer to make sure that it is in legal format. Legal format is ‘'*’’ and | 
4! 2 ? 3 on y - ‘ 
4 ? § : Input Parameters: | 
F7 684 ; R4 - offset to field descriptor, the contents of which 
F7 ° $ 3 are to be checked for wild validity 
F7 § : R10 - fwa 
F7 687 ; 
4 ? 3 ; Output: 
F7 690 : V bit - SET if descriptor contains a legally formatted wild field 
ae $3) ; CLEAR otherwise 

ore $98 3 RO - destroyed 
F7 694 

OF7 695 

ore 696 CHECK_WLD igo: 

50 SA 54 C1 OF72 369 ABDLS =R4,R10,RO ; address of descriptor 
60 01 861 OF 76 698 CMPW #1, (ROS ; check size 
4 12 OF7 699 BNEQ 1 ; ba 
0480 2A 91 a 700 CMPB #*A/*/,a4(RO) 3; right character 
0S OF7F 3701 10$: RSB H 
OF80 37 ¢ 
OF80 370 END ; End of module 
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Symbol table 
$$.PSECT 
SSARGS 
SSRASTEST 
ESCAPE_CHAR 


SSRAS 
SSRAS 
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RMOXPFN EXPAND FILENAME STRING 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 85 | 
Symbol table tet 7 93:33:98 LRNS  SRCTRMOXPEN. MAR: 1 ’ (3) | 
FWASB_ROOTERM s 4 FWAST_SLB = 8 
FWASB_SUBNODCNT 2 F FWASV-CONCEAL_DEV 2 
FWASB_UNDER_NOD = 3 FUASV DEVICE s oF 
FWASB_WILDFCGS FWASV_DFLT_MFD B 
FUASCTALL . f FUASV DIR : 6 | 
= 4 = 
FWASC_ALLPASS = 1 FWASV_DIR2 = 1 
FWASC_MAXDIRLEN z FF FWASV_DIR_LVLS = 0000001D 
FWASC_MAXLNDNAM = F F WASV_DUPOK = 0000000 
FWASC_MAX s 7 FWASV_EXP_DEV = 0000001 
FWASC_MAXNODLST = O7F FWASV_EXP_DIR = 000 1§ 
FWASC_MAX = 06 FWASV_EXP_NAME s 1 
FWASC_MAXQUOTED s FF FWASV_EXP_NODE = 96 
FWASC_MAXSUBDIR = 4 FWASV_EXP_ROOT = 0000003C 
FWASC_MAXS = 00000007 FWASV-EXP_TYPE = 00000011 
FWASC_MAXTYPE = 00 999 7 FWASV-EXP-VER = 99000 10 
FWASC_MAXVER = 00000 6 FWASV_FNA” PASS = 00000004 
FWASL_BUF PTR = 000000 FWASV_GRPAMBR = yae4dh 
HARE Ae = $085 HA aan : S800 
= = 
WASL_SLBH_BCINK = FWASV_NAM_DVI = 
pons -at iP atte HOARY -AoeoP saved 
= = 
FWASL_SLBH_PTR = 000000A8 FWASV_NOD = 00000019 
FWASL_SLB_PTR = 000000AC FWASV_QUOTED = QOOOO01A 
FUASLTALTBUFF? = 000000A4 FUASVROOT. DIR = 900000SA 
= = 
rose pik : Hasee pOABetrencen = Senne 
= = 
FWASM_DUPOK = 00000001 FWASV_SYRTAX_CHK = 00000036 
FWASM_EXP_DEV = 00800000 FWASV_TYPE = 0000000C 
FWASM_EXP_DIR = 00400000 FWASV_VERSION = 90000008 
s = $ernee HARYUE- HE = $eenee 
= = 
ie = 4 bh 444 FWASV_WC_VER = SS 
= 0000001 FWASV_WICDCARD = 00000018 
= 4 43 FWASV_WILD_D = 0000001C 
= 44 4 444 WASV_WILD_GRP = 88580859 
= 000000F ASV_WILD_MBR = 00000029 
= 0000012 FWASV_WILD_UFD = seed ty 
= B28 OOE FWASW-XLTSTZ = 0000009E 
= 000000 TSPC 00000244 R 01 
= Oa8 1 GET NEXT QOOOO9BF R 01 
= 000001 GRPABR stale AY R 01 
5 9p HAVEONE 8008 FR 01 
z 1 HOR_TAB = 00000009 
= 000000D IFBSB_MODE = $00 A 
= 00 186 IFBSL_NWA_PTR = 00000 s 
= 000001 | IFBSV" CREATE = 00000 
= 3 18 INSERT_MFD 38 SFB R 01 
s FF INTERMED NODE QOOO6AE R 01 
= 93 LNMSC_MARDEPTH = QO000000A 
= f LNMSC_NAMLENGTH z FF | 
= 3 3 LNMSM_CASE_ BLIND = 9 
= C LNMSV~CONCEALED = 
= 9 80 LNMSV“EXISTS = A 
= LNMSV- TERMINAL a 3 
= 000007€9 LNM_ATTR A93 R 01 
| 
| 
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ak caplantedl cone: nana, Base} 90:53:08 YRMS SRCTRMONPEN MAR: 1 (8) Vi 
Symbol table ’ 
1 NWASL_XLTMAX INDX 

bro 365 4 1 NWASL-XLTS1IZ 0 
mov aie D FOE R 1 NWASQ-ACS 44 
MOVE _RELATE 43 R 1 NWA$Q_BIGBUF 70 
MOVE “REL_FIELD 22 R A$Q"B1G ? 
se = 8 ASQ" FL 0 9° 

fet = NWA$Q_ INODE 0000 
NANSB “RSL s 80 NWAS$Q- 10SB 0 $ D 
NAMSB_RSL e OOOFF NWAS$Q"LNODE 0 16 
NAMSCCESA = 0000000C NWASQ"LOGNAME 000023C 
NAMSCENG : ef NWASQ_NCB 0000264 
NAMSCRUE : 1 NWASQ_RCY 3 3 50 
+ “RSA = 8 0 NWASQ-SAVE DESC 1 
NARST = 00000014 NWASQ-XLTBOF1 000024¢ 

vreNe 00000 NWA$SQ~XLTBUF2 0000254 
NANSVGRECROR = 09000014 “XKT 00000€8 
apr ti = 00000011 NWAST"ACSBUF 000026C 
NAMS NODE = §0090010 NWA$T_AUXBUF 9900360 
NAMSV~SEAR = $0000008 NUAST~TNODEBUF SO000cAC 

he . 008 NWASTTITM_ATTR 90900209 
NAMEV ILD = $o0000%8 NUAST“ITMTEN 00000224 

wpb = 9000028 NWASTTITMCL 00000200 
NANSUTF Ap ° §00000 4 NWAST_ ITM” MAXINDX 00000218 
NAMED— IR 0000936 R 01 NWAST_ITM-STR 0000020C 

RRAA” titted R 01 NWAST_NCBBU Bb N3 ES 
a 00000841 R 01 NWA$T-NODEBUF 0000169 
NOTRAN QO0000BE2 R 01 NWAST RCVBUF 000001A0 
NTSNUA eeeeeere =X 01 NWAST SCA 00000100 
NUAse Ketan 00011C NWAST- TEM 00000120 
ort et Ta Mattes NWAST-XLTBUF1 eae 
NUASB“FILEStS SoogooEs NWAST XLTBUF 2 000003AC 
rer ed 5 8 00110 NWAST XMTBUF ea ee 
NWASE-NETSTRS TZ 900001 6F NWASW_BUIL 000000D2 
WUASB-WODBUF STE attet ts NUASUDAPGUFSIZ 444 fH, 

orf So0000e« NUASUTDISPLAY $0000056 
WWASBRTR 00000C7 NWASW-FIL_OFF BOOROCE 

“RNs iattites NWASW- JNLRABJOP OO0011E 
MASE "BUNT 0800 PARSE CONCEAL O0O000BF7 R 01 

at $00900 0 PARSE_DIR 0 i 8 01 
WUASCTAARALS. = pon000eC PARSE-SPECS OO00031E ROT 
MASK“BL = 0000800 PARSE “STRING 00000303 R01 

In ue 
SUAS DAT RABADR 8000104 PLOSeT DOSTRING peeeen 
SUA BEY 0 PPERMFILE 90000880 R 1 
NUASE “FHC 5 1 g PRS_ERROR 0000053D R 1 
MU ASL -KETRABADR fi 10C¢ PRS-EXIT 06 O04F4 R 1 
ort ee arr 000 0D4 PRS EXIT1 88 bee . 81 
wre es 8 O9118 ORS Enope 099003 ? : 4 
NWASL-SAVE_FLGS 8 198 PSEODO CHKFLO 00000806 R } 
oe OF RMSEXPSTRING eeeeeeee =X 1 
NWASL— THREAD 5 SFUASET teeeeeee =X 01 
ROAST at TBUFFLG 0 ; RMS$GETBLK1 aeeeeeee x 4 
Reaererenr 

NWASL-XLTCNT 000 § RMSGETPAG 
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SIZE 
LATXLATLOG 
XLATLOG 
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SLATE 
NSLATE_FAIL 
NSLATE~LOOP 
RNLNM 
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TRNLOG$" TABLE 
UPCASE_COMPRESS 
UPDATE_SLB 


wc 
WCNTV_MASK 
WLOFNA 
WLOTYP 
XITNAM 
XPFN_SPACE 
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RMOXPFN EXPAND FILENAME STRING 16-SEP-1984 00:43: AX/VMS M 4- RI 
Psect synopsis Tey 7 90:53:98 YAS ERCIRMORPEN-MaRs 1 — (8 


PSECT name Allocation PSECT No. Attributes 

. . 00000000 e-} 00 ¢ QO.) NOPIC USR C ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

RMSRMSF ILENAME OOOOOF80 ( 3968.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Pee eet 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.12 00:00: 4-39 
Command processing 1 00:00:00.84 B3 282: 9.23 
Pass 62 4 SE 3 00:00: 9-87 
Symbol table sort 0 00:00:03.03 00:00:03.80 
Pass 2 642 es i Se Or 
Symbol table output 4 00:00:00.33 00:00:00.59 
Psect synopsis output 3 00:00:00.04 00:00:00.04 
Cross-reference output 8 00:00:00.00 BF + 80 399-08 
Assembler run totals 144 00:00:40.47 00:01:33.12 


The working set Limit was 1950 pages. 3 

149359 bytes (292 pages) of virtual memory were used to buffer the intermediate co 

There were 110 pages of symbol table space allocated to hold 1891 non-local and 21 
03 source Lines were read in Pass 1, produc ing 22 object records in Pass 2. 

3 pages of virtual memory were used to define 52 macros. 


de. 
2 local symbols. 


aeersnee eee seme e es oeeme acest 


Macro Library name Macros defined 
-$255$DUA28: CRMS..OBJJRMS.MLB; 1 17 
-8255$DUA28: CSYS.OBJJLIB.MLB; 1 1 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 10 
TOTALS (all libraries) 28 


1981 GETS were required to define 28 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMOXPFN/OBJ=OBJ$:RMOXPFN MSRC$:RMOXPFN/UPDATE=(ENHS: RMOXPFN) +EXECMLS/LIB+LIB$:RMS/LIB 
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